Select Code to Download

BEGIN {
    $|=1;
    print "Content-type: text/html\n\n";
    use CGI::Carp('fatalsToBrowser');
}

  BEGIN {
      use CGI::Carp qw(carpout); 
...
                      or die("my_error_log: $!\n");
      carpout(\*ERROR_LOG); 
  }