my $dbh = DBI->connect('DBI:yourdb_driver:your_dbname','user','password') || die $DBI::errstr;