use DBI;


my $database = 'my_test_database';

my $dbh = DBI->connect( "DBI:mysql:database=$database" ... );

$dbh->do( "DROP DATABASE IF EXISTS $database" );