BEGIN {
    use CGI::Carp qw(fatalsToBrowser set_message);
    sub handle_error {
        use CGI;
        use CGI::Carp qw(carpout);
        $query = new CGI;
        $debug = $query->cookie('debug') || "unknown";
        if ($debug eq "true") {
            carpout(LOG) if open(LOG, ">/dev/null");
            $msg = shift;
            print "<h1>Script Error:</h1>\n\n";
            $msg =~ s/\n/<br>/g;
        } else {
            if (open FILE, "../web-banner2") { print <FILE>; close FILE; }
            $remote_addr = $ENV{'REMOTE_ADDR'};
    
            if (open FILE, "+>>tmp/$remote_addr") {
                print FILE "Script Error: " . localtime(time());
                print FILE qq(
Address: $remote_addr
Referrer: $ENV{HTTP_REFERER}
===========\n);
                carpout(FILE);
                print FILE "===============\n\n";
                close FILE;
            } else {
                print "Note: can't open error log: $!<br>\n";
            }
            $msg = qq(<h1>Software Error!</h1>
Please <a href="mailto:argv@danheller.com">send me mail</a>.);
        }
        print $msg;
    }
    set_message(\&handle_error);
}