$t = new Net::Telnet (Timeout => 10);
$t->open($host);
$t->login($Username, $Password);
my @lines = $t->cmd($CMD);
print @lines;