sub printem
{
    my $file = shift;

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

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

printem *FILEHANDLE;