my $host="hostname.whatever.com";
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
                      Port => 3000,
                      Prompt => '/> $/');
$t->open($host);
@helptext = $t->cmd("help");
print @helptext;