Select Code to Download

% telnet localhost 10023
Trying 127.0.0.1...
...
Escape character is '^]'.
....
login:

#!/usr/bin/perl
use warnings; use strict;
...
print "found password prompt...";
$telnet->print($password);
print "logged in yay!\n";