#!/usr/bin/env perl
use Net::Telnet ();

my $telnet = new Net::Telnet(
    Timeout => 10,
#    Prompt => '/bash\$ $/', # Change me
    Errmode => 'die',
    Dump_log => '/path/to/dump.log', # change the path to a valid one
);
$telnet->open('192.168.1.88');
#$telnet->waitfor('/bash\$ $/'); # Change me
my @lines = $telnet->getlines();
$telnet->close();
print @lines;
exit;