use Net::SFTP::Foreign
 
my $sftp = Net::SFTP::Foreign->new($server,
                                   user     => $prd_uid,
                                   password => $prd_pwd);

$sftp->put($currfile, $allfile, conversion => 'unix2dos', append => 1)