#!/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;