#!/usr/bin/perl -w

use strict;
use warnings;
use DBI;

my $db="test";
my $host="localhost";
my $user="test";
my $password="test"; 

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

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

exit;