$CGI::HEADERS_ONCE = 1;

##</code><code>##

if ($cgi_header_already_printed++) {
   warn("Attempting to send second CGI while trying to ...\n");
} else {
   print CGI->header();
}