Globs

sub printFile($)
 {
 my $fileHandle = $_[0];
 while (<$fileHandle>)
 {
 my $line = $_;
 chomp($line);
 print "$line\n";
 }
 }

open(MYINPUTFILE, "<filename.in");
my $fileGlob = \*MYINPUTFILE;
printFile($fileGlob);
close(MYINPUTFILE);