use autodie;
  open ( my $in_fh, '<', $filename );
  ..
  close ( $in_fh );