my $ssh2 = Net::SSH2->new();

die " can't connect " unless $ssh2->connect($h);

die " can't authenticate " unless $ssh2->auth(username=>$u, password=>$p);

$ftp_res= $ssh2->scp_put("$flname","$full_path");  ### (local_path, remote_path )