$Net::SFTP::Foreign::debug = ~(8|16|1024|2048);

$sftp = Net::SFTP::Foreign->new ('172.23.102.133',
			user => 'isadmin',
			timeout         => 30,
			password        => "ANS#150",
			more => ['-o', 'PreferredAuthentications=password,keyboard-interactive,publickey',
			'-vvvv']) or die "No he podido establecer la conexion con el equipo";

if ($sftp->error){
   print "6565:No puedo conectar con el servidor sftp.\n\r";
   PintaLog("6565:No puedo conectar con el servidor sftp");
   exit 1;
}