Select Code to Download

#!/usr/bin/perl
use strict;
...
$t->login("foo", undef);
@lines = $t->cmd("ls");
print @lines;

timed-out waiting for password prompt at ./NetTelnet_x.pl line 13

$t->cmd("foo");