sub printem { my $file = shift; while (<$file>) { print; } } open FILEHANDLE, "<file.txt" or die "Can not open file"; printem *FILEHANDLE;