#!/usr/bin/perl
use strict; use warnings;
use DBI;
use CGI;

my $db="accountname_webapp";
my $host="localhost";
my $user="accountname_webadmi";
my $password="password"; 

my $q = CGI->new();
print $q->header();
print $q->start_html();
print $q->start_body();

my $dbh   = DBI->connect ("DBI:mysql:database=$db:host=$host",
                           $user,
                           $password) 
                           or print $q->p("Can't connect to database: $DBI::errstr\n");

if ($dbh)
{
  print $q->p("Connected");
  $dbh->disconnect or print $q->p("Discconection error: $DBI::errstr");
}

print $q->end_body();
print $q->end_html();