Need Help on Telnet using PERL Scripting

Shell Programming and Scripting
1

Iam trying to connect to a system through Telnet using net::Telnet Module
#!/usr/bin/perl -w
use net::Telnet
$myPassword = "abcdef";
$telnet = new Net::Telnet ( Timeout=>10,
Errmode=>'die');
$telnet->open (10.10.20.00);
$telnet->waitfor ('/USERCODE: $/i');
$telnet->print('abc');
$telnet->waitfor('/PASSWORD: $/i');
$telnet->print("$myPassword");
$telnet->waitfor ('< $/i');
$telnet->print (who);
after running script gettting following error
root@sun&gt;./tes.pl
pattern match timed-out at ./tes.pl line 7

Please help me

2

That white space may not be the white space you think it is? Try matching anything... if that works, do the same for the second pattern match.

$telnet->waitfor('/USERCODE:.*$/i');

3

Thanks for info..its working now