sample.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
use DBI;

my $data_source = 'dbi:mysql:database=foo;host=localhost;mysql_socket=/var/run/mysql5/mysqld.sock';
my $username = 'bar';
my $auth = '';
my $dbh = DBI->connect($data_source, $username, $auth);
warn Dumper $dbh->get_info(18);