I am using NET::TELNET module to configure a router. I am facing the following issue. My Script : =========== #!/usr/bin/perl use strict;
 use warnings;
 use Net::Telnet;
 #Connecting the DUT: my $t = Net::Telnet->new ( Timeout => 3, input_log => "D:/Profiles/admin/Desktop/input.log", );
 $t->open("192.168.210.2");
 $t->waitfor('/\W login:gi/');
 $t->print("admin");
 $t->waitfor('/Password:/');
 $t->print("cisco");
 $t->waitfor('/\W\>/');
 $t->print("enable");
 $t->waitfor('/\W\#/');
 $t->print("configure terminal");
 $t->waitfor('/Enter configuration commands, one per line. End with CNTL\/Z./');
 $t->waitfor('/\W\(config)#/');
 #$t->print("show version");
 #STEP 1 : Intersting Traffic configuration: @lines = $t->cmd("ip access-list 0.100");
 $t->waitfor('/\W\(config)#/');
 @lines = $t->cmd ("permit ip 192.168.1.0/24 192.168.101.0/24 log rule-precedence 111");
 $t->waitfor('/\W\(config)#/');
 $t->print ("commit write memory");
 $t->waitfor('/\W\(config)#/');
 $t->print ("show context");
 PROBLEM: ======= When I execute this script, script is "timing-out at line 61". That is "@lines = $t->cmd("ip access-list 0.100");
" Its executing only first command. Please help me to resolve this issue. Thanks in advance.