BEGIN {
     use CGI::Carp qw(carpout);
     # Pfad /PFAD/ZUM/CGI/ auf eigenen Pfad anpassen!!!!
     open(LOG, ">>/PFAD/ZUM/CGI/cgi.log") or
       die("Unable to open cgi.log: $!\n");
     carpout(LOG);
   }