programming-examples/perl/File/Pass file handle reference in a the form of FILEHANDLEIO.pl

sub printem
{
    my $file = shift;

    while (<$file>) {
         print;
    }
}

open FILEHANDLE, "<file.txt" or die "Can not open file";

printem *FILEHANDLE{IO};