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