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