use strict;
use warnings;
use Net::Telnet();


my $host = '10.10.1.5';

my $t = new Net::Telnet (Timeout => 10, 
                      Input_log => *STDOUT, 
                      Prompt => '/bash\$ $/'
                     ); 
$t->open("$host"); 
print STDERR "connected...\n";
my @lines = $t->cmd("help"); 
print @lines; 
        
@lines = $t->cmd("cli help"); 
print @lines;