Help for this page

Select Code to Download

Select or download this

 BEGIN {
            use CGI::Carp qw(carpout);
            open(LOG, ">>/usr/local/cgi-logs/mycgi-log") or
              die("Unable to open mycgi-log: $!\n");
            carpout(LOG); #Correct way, according to tchrist, is carpo
+ut(\*LOG);
          }