#!/usr/bin/perl
use Net::OpenSSH;
$Net::OpenSSH::debug = ~0;
my $ssh = Net::OpenSSH->new("root:viking@10.0.0.29",timeout => 30,strict_mode => 0);
 $ssh->error and die "Unable to connect: " + $ssh->error;
 print "Connected to $ssh\n";
 undef $ssh;

##</code><code>##

c:\Users\lax1_test\Desktop\ASRT_trunk>perl -w test.pl
# open_ext: ['ssh','-V']
# io3 mloop, cin: 0, cout: 1, cerr: 0
# io3 fast, cin: 0, cout: 1, cerr: 0