#!C:\perl\bin\perl -w
# Script: connectdbtest.pl Test To Connect To A Database.
use strict;
use DBI;

my $dbh = DBI->connect("DBI:mysql:masslottery_db", "root", "system1");
 die "Connect to masslottery_db failed: " . DBI->errstr() unless $dbh;
 print "connect to masslottery_db successful!\n";
 
$dbh->disconnect();