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]
}