use DBI;

###################
# configurations
###################
my $dbase = "111";
my $mysql_user = "222";
my $mysql_pass = "333";

###################
print header;

my $dbh = DBI->connect("DBI:mysql:$dbase", $mysql_user, $mysql_pass) or
print DBI->errstr;

print "We are connected.<br>";