# sack the QA team! sub die_nice { my ( $real_error ) = @_; email( $ADMIN, $real error ); warn $real_error; # this will log it like die # Make sure we have a valid header.... print "Content-Type: text/html\n\n"; # Lie to the user, we don't want to let them know our code is unstable now do we? print "

Sorry the server is unable to respond to your request due to routine maintenance

Please try again later...."; # yeah right..... exit 1; }