my $obj = Net::Telnet->new( … );
$obj->max_buffer_length( 50*1024*1024 );