use DBI;
print "Content-Type: text/html\n\n ";
my $dbh = DBI->connect("DBI:mysql:$database", $user, $pass) or print "<BR>Couldn't connect to database: " . DBI->errstr;