# snmptrap.pl
#! /usr/bin/perl 

use strict; 
use Net::SNMP qw(:ALL); 

my ($session, $error) = Net::SNMP->session( 
   -hostname  => $ARGV[0], 
   -community => $ARGV[1], 
   -port      => SNMP_TRAP_PORT,      # Need to use port 162 
); 

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

my $srcip=$ARGV[2]; 
my $dstip=$ARGV[3]; 
my $srcport=$ARGV[4]; 
my $dstport=$ARGV[5]; 
my $personality=$ARGV[6]; 
my $result = $session->trap( 
   -enterprise   => '1.3.6.1.4.1.50000', 
   -generictrap  => 6, 
   -specifictrap => 1, 
   -varbindlist  => [ 
      '1.3.6.1.4.1.50000.1.1', OCTET_STRING, "$srcip", 
      '1.3.6.1.4.1.50000.1.2', OCTET_STRING, "$dstip", 
      '1.3.6.1.4.1.50000.1.3', OCTET_STRING, "$srcport", 
      '1.3.6.1.4.1.50000.1.4', OCTET_STRING, "$dstport", 
      '1.3.6.1.4.1.50000.1.5', OCTET_STRING, "$personality" 
   ] 
); 

$session->close(); 

exit 0;