BEGIN { pipe(DEBUG, STDERR) }

# your CGI stuff

END   { close STDERR;
        print '<hr><b>Script warnings</b>',
              '<small><pre>', <DEBUG>, '</pre></small>'
            unless eof DEBUG;
}