use strict;

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

while(<FH>)
{
   print "$_\n";
}

close(FH);