# cat test_sftp.cgi
#!/usr/bin/perl -w

use strict;
use warnings;
use Net::SFTP;

my $from       = 'TEST.txt';
my $to         = '/sftp/tmp/TEST.txt';
my $server     = 'X.X.X.X';
my $user       = 'user';
my $sftp;
my %args       = ( ssh_args => { user            => 'user',
                                 identity_files  => [ '/root/.ssh/id_r
+sa' ],
                                 debug           => 1
                               }
);


$sftp = Net::SFTP->new($server, %args)
     or die "could not open connection to $server\n";

$sftp->put($from, $to) or die "could not upload $file\n";

exit;