$ssh2 = Net::SSH2->new();
$ssh2->connect($host) or die "Unable to connect $host $@ \n";
print " SSH Connected  \n";
$ssh2->auth_password($user,$passwd) or die "Unable to login $@ \n";
print " SSH Authenticated \n";

$sftp = Net::SFTP::Foreign->new(ssh2 => $ssh2, backend => 'Net_SSH2') || die "$sftp->error";