#!/usr/bin/perl
use Net::SFTP;
use warnings;
$rhost="droppoint.shopatron.com";
$ruserid="1392";
$rdirectory="/uploads/inventory/dev";
$rfilename="/home/spch/xxx";
%args = (user => "$ruserid", ssh_args => {identity_files => ["/home/talex/.ssh/id_rsa"]});
print "rhost=$rhost\n";
print "ruserid=$ruserid\n";
print "rdirectory=$rdirectory\n";
print "rfilename=$rfilename\n";
$sftp=Net::SFTP->new($rhost, %args) or die "can't log in";
$sftp->put('/home/spch/xxx', '/uploads/inventory/dev/xxx');
$sftp->setcwd('/uploads/inventory/dev');
$sftp->size('/uploads/inventory/dev/xxx');
$sftp->quit;
exit;