Hi there, At work i want to query a results server. I have a simple perl telnet module that can log into the server but it stops receiving data after logging in. Waitfor() times out Getline() receives nothing extra Here is my code: 
use Net::Telnet ();
$host = "x.x.x.x";
$username = "xxx";
$passwd = "xxxxxxx";
    $t = new Net::Telnet (Timeout => 10,
        Dump_Log   => "dump.txt",
        Input_Log   => "in.txt",
        Output_Log   => "out.txt",
            Prompt => '/$/');
    $t->open($host);
    $t->login($username, $passwd);
print $t->getline();

 $t->waitfor('/Select Option : ?$/i');
    $t->print("1");

[download]
Here is my dumpfile 
< 0x00000: ff fb 01 ff  fb 03                                  ÿû.ÿû.

> 0x00000: ff fd 01 ff  fd 03                                  ÿý.ÿý.

< 0x00000: 0d 0a 0d                                            ...

< 0x00000: 0a 57 65 6c  63 6f 6d 65  20 74 6f 20  4f 70 65 6e  .Welcom
+e to Open
< 0x00010: 56 4d 53 20  41 6c 70 68  61 20 76 65  72 73 69 6f  VMS Alp
+ha versio
< 0x00020: 6e 20 56 37  2e 33 2d 31  20 20 0d 0a  0d 0a 0d 55  n V7.3-
+1  .....U
< 0x00030: 73 65 72 6e  61 6d 65 3a  20                        sername
+: 

> 0x00000: 69 63 75 0d  0a                                     icu..

< 0x00000: 69                                                  i

< 0x00000: 63 75 0d 0a  0d 50 61 73  73 77 6f 72  64 3a 20     cu...Pa
+ssword: 

> 0x00000: 69 63 75 31  32 33 34 0d  0a                        icu1234
+..

< 0x00000: 0d 0a 20 20  20 57 65 6c  63 6f 6d 65  20 74 6f 20  ..   We
+lcome to 
< 0x00010: 4f 70 65 6e  56 4d 53 20  28 54 4d 29  20 41 6c 70  OpenVMS
+ (TM) Alp
< 0x00020: 68 61 20 4f  70 65 72 61  74 69 6e 67  20 53 79 73  ha Oper
+ating Sys
< 0x00030: 74 65 6d 2c  20 56 65 72  73 69 6f 6e  20 56 37 2e  tem. Ve
+rsion V7.
< 0x00040: 33 2d 31 20  6f 6e 20 6e  6f 64 65 20  52 47 4c 41  3-1 on 
+node RGLA
< 0x00050: 42 32 0d 0a  0d                                     B2...

< 0x00000: 20 20 20 20  4c 61 73 74  20 69 6e 74  65 72 61 63      Las
+t interac
< 0x00010: 74 69 76 65  20 6c 6f 67  69 6e 20 6f  6e 20 46 72  tive lo
+gin on Fr
< 0x00020: 69 64 61 79  2c 20 32 35  2d 4f 43 54  2d 32 30 31  iday. 2
+5-OCT-201
< 0x00030: 33 20 31 37  3a 33 37 3a  30 37 2e 32  35 0d 1b 5b  3 17:37
+:07.25..[
< 0x00040: 63                                                  c

< 0x00000: 1b 5c 1b 5a                                         .\.Z

< 0x00000: 1b 5b 30 63                                         .[0c

[download]
This is what i see when i just manually enter a telnet session 
Welcome to OpenVMS Alpha version V7.3-1

Username: icu
Password:
   Welcome to OpenVMS (TM) Alpha Operating System, Version V7.3-1 on n
+ode RGLAB2
    Last interactive login on Friday, 25-OCT-2013 17:44:22.40
1 A  Live APEX System
2 T  Training APEX System
3 S  Old Biochemistry Data (up to 9th May 1999)T
4 P  Change Password
5 Q  Quit/Logout
Select Option :

[download]
Im guessing its a prompt issue. But ive no idea what my prompt should be. Ive tried switching telnetmode, binmode but no luck Any ideas? Thank you...

In reply to Perl Telnet client not receiving all the data by jicjoc

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.