http://www.perlmonks.org?node_id=499082

kampret77 has asked for the wisdom of the Perl Monks concerning the following question:

I have one telnet server address with 2 port. host, portA, portB. i try to make telnet connection using telnet app in linux to the two different port and I can log in (asked the password and user, and get the prompt) The problem is when trying to connect to telnet server portB (10012), i can't get the login and password. It look can open the connection but It fails when trying to log in the code

$telnetSoc->open(); #passed open $telnetSoc->login($user,$pass); #always stop here

*this piece of code wants to show the sequence :D not intended to give full completely code :D i can assume no miss type code syntax* I have try to dump the message and this is the dump message this is error message for host with portA using telnet module

< 0x00000: ff fd 18 ÿý. > 0x00000: ff fc 18 ÿü. < 0x00000: ff fe 18 ff fb 01 ff fb 03 ff fc 21 ff fd 01 0d ÿþ.ÿû.ÿ +û.ÿü!ÿý.. < 0x00010: 0a 0d 0a 20 54 65 6c 6e 65 74 20 63 6f 6e 6e 65 ... Tel +net conne < 0x00020: 63 74 20 74 6f 20 43 4f 4e 53 4f 4c 45 53 45 52 ct to C +ONSOLESER < 0x00030: 56 45 52 20 39 30 30 30 20 73 65 72 69 61 6c 2d VER 900 +0 serial- < 0x00040: 34 34 20 0a 0d 00 0d 0a 0d 00 44 .... +... > 0x00000: ff fd 01 ff fd 03 ff fc 01 ÿý.ÿý.ÿ +ü. < 0x00000: ff fe 01 ÿþ. < 0x00000: 0d 0d 0a 50 65 72 6c 65 20 43 4f 4e 53 4f 4c 45 ...Perl +e CONSOLE < 0x00010: 53 45 52 56 45 52 20 39 30 30 30 20 SERVER +9000 < 0x00000: 0d 0d 0a 56 65 72 73 69 6f 6e 20 33 2e 32 2e 30 ...Vers +ion 3.2.0 < 0x00010: 2e 47 0d 0d 0a .G... < 0x00000: 0d 0a 6c 6f 67 69 6e 3a 20 ..login +:

this is error message for host with portB using telnet module

< 0x00000: 53 65 6c 65 63 74 65 64 20 68 75 6e 74 20 67 72 Selecte +d hunt gr < 0x00010: 6f 75 70 20 62 75 73 79 0d 0a oup bus +y..

Edit: g0n - replaced pre tags with code tags