#!/usr/bin/perl -w
use Net::Telnet::Cisco;
my $host = "200.198.191.14";
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my @mess = qw(Janeiro Fevereiro Marco Abril Maio Junho Julho Agosto Setembro Outubro Novembro Dezembro);
my $user = "dheykson";
my $pass = '';
my $session;
my $saidalog = "bandaout.log";
if ($session = Net::Telnet::Cisco->new(Host => $host, Timeout=> 5)) {
        if ($session->login($user,$pass)) {
                open LOG, ">>", $saidalog or die "Nao foi possivel gravar o log: $!\n";
                my @result = $session->cmd('sh policy-map int vlan341 | include exceeded');
                chomp(@result);
                print LOG "[$mday de $mess[$mon] as $hour:$min] @result\n";
                close LOG;
        } else {
                warn "Can't login: " . $session->errmsg;
        }
} else {
        warn $session-errmsg;
}
$session->close;