programming-examples/perl/File/Passing Filehandles by Reference.pl

#!/bin/perl
open(READMEFILE, "f1") || die;
&readit(*READMEFILE);      # Passing a filehandle to a subroutine
sub readit{
     local(*myfile)=@_;    # myfile is an alias for READMEFILE
     while(<myfile>){
        print;
     }
}