#!/usr/bin/perl


use strict;

use CGI qw(:all);
use CGI::Carp qw( fatalsToBrowser );
use Mysql;

use DBI;  # Here's how to include the DBI module 

print ("Content-Type: text/html\n\n");

$DB_Host = "localhost";
$DB_Name = "username_webapp";
$DB_User = "username_webadmi";
$DB_Password = "password";

print "Trying to connect to MySQL DB<br>";
if (!($dbh = Mysql->Connect($DB_Host,$DB_Name,$DB_User,$DB_Password)))
{
   print "Could Not Connect to Database! Reason: ".($Mysql::db_errstr);
   exit;
}
print "Successful MySQL DB Connection";
exit 0;