my $dbi=DBI->connect('');
die DBI->errstr() unless $dbi;