Select Code to Download

cc:/sftp/test#
# cat test_sftp.cgi
#!/usr/bin/perl -w
...
$sftp->put($file, $file) or die "could not upload $file\n";

exit;

cc:/sftp/test# perl test_sftp.cgi
cc: Reading configuration data /root/.ssh/config
...
cc: Sending subsystem: sftp
cc: Requesting service subsystem on channel 1.
cc: channel 1: open confirm rwindow 100000 rmax 16384

my $file       = '/sftp/test/TEST.txt';

...............................................................
...............................................................
...
cc: channel 1: open confirm rwindow 100000 rmax 16384
Couldn't get handle: Permission denied at test_sftp.cgi line 21
could not upload /sftp/test/TEST.txt