Need help on Perl telnet Script

Shell Programming and Scripting
1

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 9.121.61.2 2013

Trying 9.121.61.2...
Connected to 9.121.61.2.
Escape character is '^]'.

Perl Script

#!/usr/bin/perl -w 
use Net::Telnet();
$telnet = new Net::Telnet(Timeout =>60,
                          Errmode=>'die',
                          Prompt  => '/[\$#%:>] $/');

$telnet->open('9.121.61.2 2013');
print ("\ntelnet is successful\n");
sleep 2;

$telnet->print("iscli");

$telnet->waitfor('/login: $/i');
$telnet->print("admin") ;
$telnet->waitfor('/password: $/i');
$telnet->print("admin");

sleep 20;
$telnet->print("en");
sleep 1;
$telnet->cmd('config t');
$telnet->cmd('interface port INTA1');
$telnet->cmd('shut');
print ("\nport Shut is successful\n");
sleep 5;

$telnet->close;

Please help to solve the issue.

2

Just a quick look: The reference says for open port you need 4 arguments or at least two and a comma?

Net::Telnet - search.cpan.org

open - connect to port on remote host $ok = $obj->open($host); $ok = $obj->open([Host => $host,] [Port => $port,] [Errmode => $mode,] [Timeout => $secs,]);