use strict;

sub fhopen
{
   open(FH, "< shift") or die;
}

fhopen("somefile.txt");
while(<FH>)
{
   print "$_\n";
}

close(FH);