DBIx::DataSource::mysql3pm

  use DBIx::DataSource;
  use DBIx::DataSource qw( create_database drop_database );
  create_database( "dbi:mysql:$database", $username, $password )
    or warn $DBIx::DataSource::errstr;
  create_database( "dbi:mysql:database=$database;host=$hostname;port=$port",
                   $username, $password )
    or warn $DBIx::DataSource::errstr;
  drop_database( "dbi:mysql:$database", $username, $password )
    or warn $DBIx::DataSource::errstr;
  drop_database( "dbi:mysql:database=$database;host=$hostname;port=$port",
                  $username, $password )
    or warn $DBIx::DataSource::errstr;