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