my $dbh = DBI->connect( 'DBI:mysql:mysql', 'username', 'password' )
           || die $DBI::errstr;
 $dbh->do( 'use ' . DBNAME );