alguien me podria decir como hacer la conexion a una BD en CGI

gracias por su ayuda me sera muy util

#!/usr/bin/perl -Tw

use CGI qw(:standard);
use DBI;
use strict;

my $titulo = "Prueba de conexion a MySQL";
my $dbHost = "localhost";
my $dbName = "aqui escriba el nombre de su base de datos";
my $dbUser = "aqui su nombre de usuario";
my $dbPassword = "y aqui su password";

print header,
start_html($titulo), "\n",
h1($titulo), "\n";

my $dsn = "DBI:mysql:$dbName;$dbHost";
my $dbh = DBI->connect($dsn, $dbUser, $dbPassword);

if ( !defined $dbh )
{
print "\nNo se conecto al servidor de MySQL\n";
print end_html, "\n";
exit;
}
else
{
print "\nSi se conecto al servidor de MySQL\n";
}

$dbh->disconnect;

print end_html, "\n";