#!/usr/bin/perlml
 
use cPanelUserConfig;
 
use 5.010;
use strict;
use warnings;
use CGI::Carp qw/fatalsToBrowser/;
 
print "Content-type: text/html\n\n";
 
#B1. Database name, table name, user name, and password
#respectively.  User name and password are case sensitive.
 my $dbase="***";
 my $tablename="***";
 my $username="***";
 my $mysqlpassword="***";
 
#These two should not need modified unless connecting to MySQL on
#a remote server or to a database platform other than MySQL.
 my $hostname="localhost";
 #my $hostname = "localhost:3306";
 #my $hostname = "p3plcpnl1204.prod.phx3.secureserver.net";
 my $databaseserver="mysql";
 
use DBI;
say "Perl MySQL Connect Demo";
# MySQL database configuration
 
#my $DSN = "dbi:mysql:$dbase:$hostname";
#my $DSN = "DBI:mysql:$dbase";
#my $DSN = "DBI:mysql:database=$dbase;host=$hostname";
my $DSN = "DBI:mysql:database=$dbase;host=$hostname";
 
my $dbh = DBI->connect( $DSN, $username, $mysqlpassword );
my $dbh = "";
if ($dbh) {
    say "Connected to the MySQL database.";
} else {
    say "Catastrophe! Connection failure with DSN '$DSN', pass '$mysqlpassword', user '$username': $DBI::errstr
+";
}