use CGI;
use DBI;
my $q = new CGI;
my $debug = 1;
$debug && print $q->header;
$debug && print '<pre>';
$debug && print "connecting.....\n";
my $dbh = DBI->connect(.....);
$debug && print "connected\n";
# yada yada