exemple:

open FH,"<fichier.txt";

file_print(*FH);

sub file_print
{
        local *FH = shift;
        my @lines;
        @lines = <FH>;
        print @lines;
}