sub die_nice {
    my $real_error = shift;
    email($administrator, $real_error);
    log_error(scalar localtime, $real_error);
    tell_user('Sorry the system can not respond to your request due to routine maintenance
              <br>Please try again later')  # yeah, right!
  exit;
}

sub tell_user {
    print "Content-type: text/html\n\n<p>" . shift;
}