- $sock = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => "$port", Proto => 'tcp')
- or die "Can't connect to $host port $port $!";
-
+ if ($port == 23) {
+ $sock = new Net::Telnet (Timeout => $timeout, BinMode => 1);
+ $sock->option_accept(Dont => TELOPT_ECHO, Wont => TELOPT_ECHO);
+ #$sock->option_log('option_log');
+ $sock->dump_log('dump');
+ $sock->open($host) or die "Can't connect to $host port $port $!";
+ } else {
+ $sock = IO::Socket::INET->new(PeerAddr => "$host:$port", Proto => 'tcp')
+ or die "Can't connect to $host port $port $!";
+
+ }