Re: Telnet.pm and IAC

[Khen1950fx]

"Disable" may not be the right term. For me, I think "use it, then remove it". Here's my first try.

#!/usr/bin/perl -l

use strict;
use warnings;
use Net::Telnet::Options;

my $nto = Net::Telnet::Options->new();

my($ssocket) = 'This is a test';

open my $socket, "<", \$ssocket 
  or die "Can't open socket scalar: $!";
my $data = chr(255);
my $returned = $nto->answerTelnetOpts($socket, $data);
print "SSocket : ", join(' ', map({ ord $_; } split(//, $ssocket)));
close $socket;