unless (open(FH, "<", "indexfile")) {
  print "Content-Type: text/html\n\n<h1>NOOOOOOO!!!!!</h1>Error: $!\n";
  exit(1);
}