#!/bin/usr/perl -w
use strict;
use WWW::Mechanize::Firefox;
my $mech = WWW::Mechanize::Firefox->new( launch => 'firefox',);
my $net_telnet = $mech->repl->repl->client;
$net_telnet->max_buffer_length(10485760);