use warnings;
use strict;
use Net::SSH2;

my $server = "212.100.100.239";

my $datafile = "D:/ETL/RPT/MD/IMSI_SICAP.lst";
#my $datafile1 = "D:\\ETL\\RPT\\MD\\";
my $ssh2 = Net::SSH2->new;

die "can't connect" unless $ssh2->connect($server);
print "Connected\n";

die "can't authenticate"
unless $ssh2->auth(username => 'user',password => 'aaa');
print "Authenticated\n";

my $sftp = $ssh2->sftp;
$ssh2->debug(1);

my $dir = "/timesten_old/IMSI_SICAP.lst";

$ssh2 ->scp_put("${datafile}","${dir}")or die ("Error");
print "Success\n";

$ssh2->disconnect();