sub mysub { my $fh = shift; while (<$fh>) { ... } }