#!/usr/bin/perl

use strict;
use Net::SNMP;

   my ($session, $error) = Net::SNMP->session( -hostname  => $ARGV[0] || 'localhost',
                                               -community => $ARGV[1] || 'public',
                                               -port      => 162,      # Need to use port 162
                                               -version   => 'snmpv2c'
                                             );
    if (!defined($session))
         {
           printf("ERROR: %s.\n", $error);
           exit 1;
         }

     my $result = $session->snmpv2_trap(
                            -varbindlist =>['1.3.6.1.2.1.1.3.0', TIMETICKS, 600,
                                            '1.3.6.1.6.3.1.1.4.1.0', OBJECT_IDENTIFIER, '1.3.6.1.4.1.326'
                                           ]
                                       );
     if (!defined($result))
         {
           printf("ERROR: %s.\n", $session->error());
         }
     else
         {
           printf("SNMPv2-Trap-PDU sent.\n");
         }

$session->close();
exit 0;