#!/usr/bin/perl -w

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;

print "Content-type: text/html\n\n"; 

$db_datasource = "DBI:mysql:$db_name:$db_host";
$dbh = DBI->connect($db_datasource, $db_user_name, $db_password) or die("Could not connect!".$dbh -> errstr);
print "Successfully connected to database $db_name on host $db_host<p>\n";
$dbh->disconnect or warn "Disconnection failed: $!\n";