open ( my $in_fh, '<', $filename ) or
    die "Unable to open $filename for read: $!";
  ..
  close ( $in_fh );