use strict;
use Net::Telnet ();
my $t = new Net::Telnet Timeout => 30,
Prompt => '/[\$#%:><] $/';
$t->open($ARGV[0]);
$t->login($ARGV[1], $ARGV[2]);
my @lines = $t->cmd("MY CMD/;");
print @lines;

##</code><code>##

Trying 1.1.1.1...
Connected to 1.1.1.1.
Escape character is '^]'.


























ENTER USERNAME < 
ENTER PASSWORD <