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();