use strict;
use warnings;

use DBI;
my $dbh;

$dbh = DBI->Connect("DBI:mysql:dbname:myhost.com","root","mypassword")  or die "Can't connect: $dbh->errstr\n";

$dbh->disconnect();