#!/usr/bin/perl -wT

use CGI qw/:standard/;
use DBI;
use Net::SMTP;
use CGI::Carp qw(fatalsToBrowser);

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

# resource limits
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 1024;