I figured I could help most by reformatting your post.

I am using NET::TELNET module to configure a router. I am facing the f
+ollowing issue. My Script : =========== #!/usr/bin/perl use strict;
 use warnings;
 use Net::Telnet;
 #Connecting the DUT: my $t = Net::Telnet->new ( Timeout => 3, input_l
+og => "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 CN
+TL\/Z./');
 $t->waitfor('/\W\(config)#/');
 #$t->print("show version");
 #STEP 1 : Intersting Traffic configuration: @lines = $t->cmd("ip acce
+ss-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 iss
+ue. Thanks in advance.
[download]