sub rh {
  my $filename = shift;
  open my $in, '<', $filename
    or die "Couldn't open $filename for reading: $!\n";
  return $in;
}

my $in = rh( 'somefile.txt' );
print while <$in>;