0146669944 502126920956715 1^M
0146456870 502124950748150 1^M
0142811862 502122912649310 1^M

##</code><code>##

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

my $datafile = "D:/ETL/RPT/MD/IMSI_SICAP.lst";


my $ssh2 = Net::SSH2->new;
$ssh2 -> connect("192.100.100.238") or die ("Error");
$ssh2 -> auth(username => 'user', password => 'aaa') or die ("Error");
$ssh2 -> blocking(1);
$ssh2 -> scp_put("${datafile}IMSI_SICAP.lst","/timesten/IMSI_SICAP.lst")or die ("Error");
$ssh2 -> disconnect();