package Evil;

use strict;
use FileHandle;

sub test {
  my $fh = shift;
  bless $fh, 'FileHandle'
    if defined ref($fh) && (ref($fh) eq 'GLOB');
  print "FH is $fh\n";
  while ($fh->readline) { print; }
}

1;