PERL SCRIPT TO ENTER INTO THE INTERFACE OF CISCO SWITCH

use Net::Telnet::Cisco;

sub INTERFACE_CHECK
{
my @hi;
my $ite;
my $Counters = 0;
my @v;
my $l;
my $e;

my $session=$_[0];
$session->waitfor('/>/');
my $combo = $int_type.$int_num;
                my @ou = $session->cmd("sh ip int br");

foreach $ite (@ou)
                        {
                        @hi = split(' ',$ite);
                                        if(!defined $hi[0])
                                        {

                                        }
                                        elsif($hi[0] eq $combo)
                                        {
                                                $v[$aclCounter++] = $ite;
                                        }
                        }
                         $l = $#v;
                         if($l ge 0)
                                {
                                foreach $e (@v)
                                        {
                                       


print("ENTERED INTO THE INTERFACE");

                                        }
                                }

                         else
                                {

print("UNABLE TO ENTER INTO THE INTERFACE");
}
}