#!/usr/bin/perl
use Net::OpenSSH;
$Net::OpenSSH::debug = ~0;
print "open secure shell\n";
my $ssh = Net::OpenSSH->new('10.0.0.29',timeout => 30, user => 'root', password => 'viking',port => 22);
print "returned from secure shell\n";
$ssh->error and print "Unable to connect: " . $ssh->error;
print "Connected to $ssh\n";
undef $ssh;

##</code><code>##

open secure shell
# open_ex: ['ssh','-V']
# io3 mloop, cin: 0, cout: 1, cerr: 0
# io3 fast, cin: 0, cout: 1, cerr: 0