note
poj
<P>Run this script and post the result to show module versions</p>
<c>
#!/usr/bin/perl
use strict;
use Net::SFTP;
use Net::SFTP::Foreign;
use Net::SSH::Perl;
printf "%s %s\n",$^O,$^V;
printf "Net::SFTP %s\n",$Net::SFTP::VERSION;
printf "Net::SFTP::Foreign %s\n",$Net::SFTP::Foreign::VERSION;
printf "Net::SSH::Perl %s\n",$Net::SSH::Perl::VERSION;
</c>
<I> "Not a HASH reference at /root/backup/backswitch.pl line 20."</I>
<p>Which is line 20 ?</p>
poj
1232405
1232405