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();

##</code><code>##

Can't locate auto/DBI/Connect.al in @INC (@INC contains: /usr/lib/perl5/i386-linux /usr/lib/perl5 /usr/lib/perl5/site_perl/i386-linux /usr/lib/perl5/site_perl /usr/lib/perl5/site_perl .) at testdb.pl line 8