#!/usr/bin/perl
use strict;
use warnings;
use Net::SNMP;

my $NodeAddress = 'localhost';
my $ReadCommunity = 'public';
my ($session1, @trapvars, $error) = Net::SNMP->session( -hostname => $NodeAddress,
 							-community => $ReadCommunity);

if (!defined($session1)){ 
	printf("ERROR: %s.\n", $error);
  	exit 1;
}

#my $ifAlias = '.1.3.6.1.2.1.31.1.1.1.18.110';
my $ifAlias = '.1.3.6.1.2.1.1.3.0';
my $result = $session1->get_request($ifAlias);

if (!defined($session1)){ 
	printf("ERROR: %s.\n", $error);
 	exit 1;
}

print "Result = $result\n";

my $ifDescr = $result->{$ifAlias};

print "ifDescr = $ifDescr\n";

my ($session2) = Net::SNMP->session( 	-hostname => 'localhost',
 					-port => '162',
 					-community => 'public');
 					
if (!defined($session2)){ 
	printf("ERROR: %s.'n", $error);
 	exit 1;
}

$trapvars[0] = ".1.3.6.1.4.1.78.0.100147";
$trapvars[1] = OCTET_STRING;
$trapvars[2] = 'IFName';
$trapvars[3] = ".1.3.6.1.4.1.78.0.100147";
$trapvars[4] = OCTET_STRING;
$trapvars[5] = $ifDescr;

print "Array = @trapvars\n";

$session2->trap(
		-enterprise => '1.3.6.1.4.1.78',
		-agentaddr =>  $NodeAddress,
		-generictrap => '6',
		-specifictrap => '100147',
		-varbindlist => \@trapvars);
		
if (!defined($session2)){ 
	printf("ERROR: %s.\n", $error);
 	exit 1;
}

$session1->close;
$session2->close;