#!/usr/bin/perl -wT

use CGI qw/:standard/;
use DBI;
use Net::SMTP;
#use CGI::Carp qw(fatalsToBrowser);    #comment this out when in production

BEGIN {
     use CGI::Carp qw(carpout);
     
     open(LOG, ">>/home/username/cgi-bin/process-log") or
       die("Unable to open process-log: $!\n");
     carpout(LOG);
   }

# resource limits
$CGI::DISABLE_UPLOADS = 1;  # no uploads
$CGI::POST_MAX = 1024 * 10;  # max 10K posts