my $dbh = DBI->connect("DBI:mysql:host=localhost;database=xxxx",'xxxx','xxxx') or die DBI->errstr();