Select Code to Download

  use Net::OpenSSH;
  use Net::Telnet;
...
  my $conn = Net::Telnet->new(Fhopen => $fh);
  my @lines = $conn->cmd("sh ver");
  print join "\n";

  Pseudo-terminal will not be allocated because stdin is not a termina
+l.
  command timed-out at t1.pl line 6