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;