my ($width,$height)=(80,200);
my $nto = Net::Telnet::Options->new();

$nto->activeWillOption('NAWS', {'DO' => sub{$nto->sendOpt($socket, 'SB', 'NAWS', '', pack('n*', $width, $height));} } );
$nto->doActiveOptions($socket);