#!/usr/bin/perl

use DBI;
use strict;

my $dbh = DBI->connect('DBI:mysql:test:localhost', 'root', '*****') or die DBI->errstr;
$dbh->disconnect;