#! /usr/local/ActivePerl-5.14.2.1402/bin/perl

use Net::OpenSSH;

my $host="zhkdsd201";
my $ssh = Net::OpenSSH->new($host,
        user => 'hkuat',
        master_opts => '-vvv',
        strict_mode => 0
);
$ssh->error and
    die "Couldn't establish SSH connection: ". $ssh->error;