open my $in, '<', $infile or
  die "Error message including \$!: $!\n";