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