my $dbh = DBI->connect("$driver:database=$database;host-127.0.0.1;port=3306", "root", "mypassword")||die DBI::errrstr;