#!c:\Perl\bin\perl
use Net::SFTP::Foreign;
use Net::SSH2;

$user="abcd";
$passwd="abcd@1234";
$host = "192.168.10.2";
$port = "22";

$sftp = Net::SFTP::Foreign->new($host, backend => 'Net_SSH2',username => $user, password => $passwd, port => $port) || die $sftp->error;
print " SFTP Connected \n";

for ($i = 0; $i <= 23; $i++)
{
$filename = "testfile".$i.".csv";
$sftp->put("c:\\documents\\$filename", "/usr/home/abcd/$filename"|| print $sftp->error;
print $sftp->status;
}