Select Code to Download

use strict;
use Net::Telnet;
...
#   my $etc2

                    }

10.xx.yy.zzz
127.0.0.1
127.0.0.1
10.aa.bb.cc
10.aaa.bb.cc

ad connection - Unable to connect to IP 10.xx.yy.zz at
-------------------
...
-------------------
Bad connection - Unable to connect to IP 10.xx.yy.zz at
-------------------

# simple telnet_test

...
print "sending \\cr waiting ...\n";
my $output = $telnet->put(String => $string, Errmode => 'die', Timeout
+ => '4',);
print " $output \n";

root@xxxxx scripts]# perl  test_telnet1.pl
connected
about to execute carriage return
sending \cr waiting ...
 1

root@xxxxx   scripts]# cat dumplog.txt
> 0x00000: 0d 0d 0a                                            ...

[root@xxxxx scripts]# telnet 10.aaa.bb.cc xxxx
Trying 10.aaa.bb.cc...
...
dds_pc: _ms=nodecc.dom.org.localþ_si=Process controllerþ_mid=9016þ_sev
+=0þ_dt=2010/07/29þ_tm=01:12:02þ_pkg=þ

Connection closed by foreign host.