Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...

# close($sftp->{ssh}->sock());
print $sftp->status;

Select or download this

[test]$ ./sftp.pl
appdev: Reading configuration data /home/doug/.ssh/config
...
appdev: channel 1: open confirm rwindow 0 rmax 16384
appdev: sftp: Sending SSH2_FXP_INIT
appdev: sftp: Remote version: 2