Telnet.pm maxbufsize

perl 裡的 Telnet.pm, 預設的 maxbufsize 是 1_048_576 (1M),
若在執行時遇到 maximum input buffer length exceeded 或 pattern match timed-out, 很可能是 maxbufsize 不夠,
可修改 Telnet.pm, 加大此預設值
maxbufsize => 10_485_760,
改成 10M

若不改預設值可以這樣設定
use Net::Telnet ();
$telnet = new Net::Telnet (Timeout => 20);
$telnet->max_buffer_length(10485760);