my $db = DBI->connect("DBI:mysql:database=$sql_database;host=$sql_host;port=$sql_port;mysql_socket=$sql_socket", $username, $password,{'RaiseError' => 1});

##</code><code>##


$dsn = ‘dbi:mysql:dbname=NameOfDatabase’;
$user = ‘mysqlusername’;
$password = ‘mysqlpassword’;
$dbh = DBI->connect($dsn, $user, $password,
{ RaiseError => 1, AutoCommit => 0 });


##</code><code>##

$dbh->do( qq(CREATE DATABASE NAME) );