Help for this page

Select Code to Download

Select or download this

use strict;
use Net::Telnet ();
...
$t->login($ARGV[1], $ARGV[2]);
my @lines = $t->cmd("MY CMD/;");
print @lines;

Select or download this

Trying 1.1.1.1...
Connected to 1.1.1.1.
...

ENTER USERNAME < 
ENTER PASSWORD <