my $dbh = DBI->connect("DBI:mysql:database=dbname;host=host", "$id","$pw") || die "Can't connect: $DBI::errstr";