Select Code to Download

    my $proto_class = join '::', __PACKAGE__,
        ($proto == PROTOCOL_SSH2 ? "SSH2" : "SSH1");

   my $proto_class = $ssh->protocol_class($proto);

$proto_class='Net::SSH::W32Perl::SSH2'

$proto_class='Net::SSH::Perl::SSH2'

use strict;
use warnings;
...
print STDERR "exit=$exit\n";
print STDERR "STDERR: $stderr\n" if $stderr;
print STDERR "STDOUT: $stdout\n" if $stdout;