Select Code to Download

my $ssh_debug = 0;  # verbose logging: 0-3
...
...
        async            => 1
    );
}

        elsif ( $ssh->error ) {
            # handle connection error
            my $lasterr = File::ReadBackwards->new("ssh_$host.log")->r
+eadline;
            # ... something that outputs or logs the error message
        }

Not a GLOB reference at /usr/local/share/perl/5.14.2/Net/OpenSSH.pm li
+ne 614.

...
 615     defined $fn and $fn >= 0 and return;
 616     croak "child process $name is not a real system file handle";
 617 }