#!/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 $databaseserver="mysql";
 
use DBI;
say "Perl MySQL Connect Demo";
# MySQL database configuration
 
my $DSN = "dbi:mysql:$dbase:$hostname";
 
my $dbh = DBI->connect( $DSN, $username, $mysqlpassword ) or die "$DBI::errstr";
 
say "Connected to the MySQL database.";