my $ssh = Net::OpenSSH->new($ip,user=>$LOGIN,password=>$PASSWD,
                          ssh_cmd=>'/opt/openssh/bin/ssh',
                          master_opts => [-o => "StrictHostKeyChecking=no",
                                          -o => "UserKnownHostsFile=/dev/null",
                                          -o => "NumberOfPasswordPrompts=1",
                                          -o => "KexAlgorithms=diffie-hellman-group1-sha1",
                                          -o => "HostKeyAlgorithms=ssh-dss",
                                          -o => "Ciphers=3des-cbc,blowfish-cbc",
                                          -o => "PreferredAuthentications=keyboard-interactive,password",
                                          -o => "LogLevel=DEBUG3"]);

  $ssh->error and die "Can't ssh to $ip: " . $t->error;
  print STDERR 'Trying open2pty'."\n";
  my ($fh,$pid) = $ssh->open2pty({ stderr_to_stdout => 1 });
  print STDERR 'opening Telnet'."\n";
  my $teln = Net::Telnet->new(Fhopen => $fh,
                              ErrMode=>'die',
                              timeout=>30,
                              Dump_Log => '/tmp/telnet.log', 
                              prompt => '/(.*#)/');
  $teln->login($LOGIN, $PASSWD);