use CGI;
use DBI;
##  ...
$dbh=DBI->connect($dsn,$user,$password) or die $DBI::errstr;
##  ...