my $ssh = Net::SSH::Perl->new($ssh_box, interactive => 1);

##</code><code>##

$ssh->login($user, $pass);

##</code><code>##

# in sub auth_failure:
    for my $meth ( split /,/, $authlist ) {
        ...
        # next unless $auth->enabled;  # <--  line 116 in v1.29
        ...
    }