from the desk of stinkpot

passing a filehandle to a subrouting in perl is slightly tricky; you’ll need to use  an asterisk.  for instance:

open (F, “/tmp/sesame”) || die $!;
read_and_print(*F);
sub read_and_print {
local (*G) = @_;  # Filehandle G is the same as filehandle F
while () { print; }
}