Do something like this:

use DBI;

use strict;
use warnings;

my $dbh = DBI->connect('DBI:mysql:test', 'root', '');
[download]