$dbh->do( "use mynewdbname" )