Sample code for 30+ languages & platforms
Perl

Route Socket Connections through an SSH Object

See more Socket/SSL/TLS Examples

Demonstrates Socket.UseSsh, which configures a socket to route subsequent Connect calls through an already connected and authenticated Ssh object using SSH port forwarding.

Background. After UseSsh, the destination host and port passed to Connect are reached through the SSH tunnel rather than by a direct TCP connection. This is one of several SSH-tunneling approaches the Socket class supports.

Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

$ssh = chilkat::CkSsh->new();

#  Connect and authenticate a standalone SSH object.
$success = $ssh->Connect("ssh.example.com",22);
if ($success == 0) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

#  The SSH password should come from a secure source rather than being hard-coded.
$sshPassword = "mySshPassword";
$success = $ssh->AuthenticatePw("sshUser",$sshPassword);
if ($success == 0) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

$socket = chilkat::CkSocket->new();

#  Route subsequent Connect calls through the already connected and authenticated SSH object.  The
#  destination is reached by SSH port forwarding rather than by a direct TCP connection.
$success = $socket->UseSsh($ssh);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

#  Connect to the destination through the SSH tunnel.
$bTls = 0;
$maxWaitMs = 5000;
$success = $socket->Connect("db.internal",5432,$bTls,$maxWaitMs);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

print "Connected to the destination through the SSH tunnel." . "\r\n";