Need help on Perl telnet Script

view story

http://www.unix.com – Hi... Iam running the following Perl Script for telnet and running the commands.The script is exited without any errors.But the telnet commands are not executed,Please help me to resolve my problem. My telnet session #telnet 2013 Trying Connected to Escape character is '^]'. Perl Script #!/usr/bin/perl -w use Net::Telnet(); $telnet = new Net::Telnet(Timeout =>60, Errmode=>'die', Prompt => '/[\$#%:>] $/'); $telnet->open(' 2013'); print ("\ntelnet is successful\n (HowTos)