# connect via the Unix domain socket
my $dsn = "DBI:mysql:database=$db";
my $dbh = DBI->connect($dsn, ...);

# connect via a TCP socket
my $dsn = "DBI:mysql:database=$db;host=localhost;port=3309";
my $dbh = DBI->connect($dsn, ...);