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