unless ( open INFILE, "<", $file )
  {
    return unless -f $file;
    die "open failed: $!";
  }