Sample code for 30+ languages & platforms
Perl

Authenticate an SSH Tunnel with a Password

See more Socket/SSL/TLS Examples

Demonstrates Socket.SshAuthenticatePw, which authenticates an SSH tunnel session using a login and password. Call SshOpenTunnel first.

Background. Authenticate before opening forwarded channels. The password should come from a secure source and never be logged; public-key authentication is often preferred.

Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

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

$success = $socket->SshOpenTunnel("ssh.example.com",22);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

#  Authenticate the SSH tunnel session with a login and password.
#  The SSH password should come from a secure source rather than being hard-coded.
$sshPassword = "mySshPassword";
$success = $socket->SshAuthenticatePw("sshUser",$sshPassword);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

print "SSH authentication succeeded." . "\r\n";