unless ( open(FILE, $filename) ) {
  print "Cannot open file \"$filename\"\n\n";
  exit;
}