Select Code to Download

use Net::Telnet ();

$host   =  new Net::Telnet (Timeout => 30, Prompt => '/[%#>] $/');
...
$host   -> cmd("set prompt = '$prompt'");
$host   -> cmd("...");
$host   -> close;

max_buffer_length - maximum size of input buffer

      $len = $obj->max_buffer_length;
...
  maximum buffer length set in the object.  With an
  argument it sets the maximum buffer length to $len and
  returns the previous value.