#!/usr/bin/perl  -w
use DBI;

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

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

$dbh->disconnect or warn "Disconnection error: $DBI::errstr\n";

exit;