unless (open (FILE, $filename)) {
  &ErrorPage(....)
}
else {
  print "Content-type: text/html\n\n"; # oder so
  print while <FILE>;
  close (FILE);
} # else