Here's some skeleton code to try. I haven't tested it much, but it seems to connect alright. 

#! /usr/bin/perl

use strict;
use warnings;

use Socket;
use POSIX;

sub named_socket_spawn {
    my $code = shift;
    ref $code eq 'CODE' or return;

    my ($serv, $conn);
    socket($serv, AF_UNIX, SOCK_STREAM, PF_UNSPEC)
                                        || die "socket: $!";

    my $sname = tmpnam();
    bind($serv, sockaddr_un($sname))    || die "bind: $!";
    listen($serv, 1)                    || die "listen: $!";

    my $pid = fork()                    // die "fork: $!";

    if ($pid) {
        close $serv;
        return $sname;
    }
    accept($conn, $serv)                || warn "accept: $!";
    unlink($sname)                      || warn "unlink: $!";
    open STDIN, "<&", $conn;
    open STDOUT, ">&", $conn;
    close $serv;
    close $conn;
    exit $code->();
}

use DBD::mysql;

#my $sqlsock = named_socket_spawn(sub{exec "ssh host -W host:3306"});
my $sqlsock = named_socket_spawn(sub{ exec "nc localhost 3306" });

my $dsn = "DBI:mysql:database=test;mysql_socket=$sqlsock";

my $dbh = DBI->connect($dsn, "test", "hunter5");

[download]

In reply to Re^2: Using Net::SSH2 with DBI by oiskuu
in thread Using Net::SSH2 with DBI by diyaz

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.