Here is a snippet that creates a *mysql* database:

sub create_tables {
    # set $dbdriver,$mysqldb,$mysqluser,$mysqlpwd
    # [SNIP]

    # Make the new database
    my $drh = DBI->install_driver($dbdriver);
    my $rc = $drh->func("createdb", $mysqldb, 'localhost', $mysqluser,
                        $mysqlpwd, 'admin');
    # Make some tables
    # [SNIP]
}
[download]

Does that help?

-Blake