my $dbh = DBI->connect("DBI:mysql:database='database':host=localhost:port=3307,'root','password') or die "can't connect: $!";