Shell Programming and Scripting

#telnet 9.121.61.2 2013

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

#!/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;