[SLUG] ask perl(script for telnet)

[henry]

Dears :   I can telnet to host(linux802) by typing                                                      >      "telnet linux802" ,                                                    >       "bilbo" (uid) ,                                                    >       "baggins" (pwd)     But when I apply telnet.pl as follows ,all I got is                                  Timeout for waiting , line 6 ($telnet->login('bilbo', 'baggins'); )   Could some one give me hint to solve the problem?         use Net::Telnet;   $telnet = new Net::Telnet ( Timeout=>20 ,                               Errmode=>'die' ,                                                 Prompt => '/bash\$ $/');   $telnet->open('linux802');                  #host   $telnet->login('bilbo', 'baggins');        #uid&pwd         BestRegards Henry