open (TEST,"test") || die $!;
mysub (TEST);

sub mysub {
my $fh = shift;
print $fh;
my $txt = <$fh>;
print $txt;
}