Help for this page

Select Code to Download

Select or download this

my $sock = new IO::Socket::INET(
            PeerAddr => $server,
            PeerPort => 9000,
            Proto    => 'tcp',
        );

Select or download this

my $dsn = "DBI:Proxy:hostname=$server;port=$port;dsn=DBI:ODBC:" . $sel
+f->get_db_name();
$dbh = DBI->connect(
...
                PrintError => 0
            }
        );