use DBI;
my $dbh = DBI->connect("dbi:mysql:", "user","pass");
print 1 == $dbh->do("create database MooCow") ? "YAY\n":"BOO\n";