VinsWorldcom@C:\Users\VinsWorldcom\tmp> grep auth_ test.pl
    #if ($ssh2->auth_password($user,$pass)) {
    if ($ssh2->auth_keyboard($user,$pass)) {

VinsWorldcom@C:\Users\VinsWorldcom\tmp> perl test.pl
ssh auth failed.
Net::SSH2::DESTROY object 0x2398d78

VinsWorldcom@C:\Users\VinsWorldcom\tmp> grep auth_ test.pl
    if ($ssh2->auth_password($user,$pass)) {
    #if ($ssh2->auth_keyboard($user,$pass)) {

VinsWorldcom@C:\Users\VinsWorldcom\tmp> test.pl

 Executing command...
 ==> Running ls
Undefined subroutine &main::is_sshalive called at C:\Users\vincen_m\tmp\test.pl
line 18.
Net::SSH2::DESTROY object 0x2398d78