#!/usr/local/bin/perl
# Define local variables here

$manager='10.10.20.10';
$host='192.168.65.21';

use Net::SNMP qw(:asn1);

$sysedgemgmt='1.3.6.1.4.1.546.9.6';
$sysedgemule='1.3.6.1.4.1.546.9.6.0.2724';
$message="hi there";

@oid=($sysedgemule, OCTET_STRING, $message);

( $session, $error)=Net::SNMP->session(
        -hostname =>  shift || $host,
        -version => 'snmpv1',
        -community => 'public',
        -port   => shift || 162);

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


$procdown=$session->trap(
        -enterprise => $sysedgemgmt,
        -agentaddr      => $manager,
        -generictrap    => 6,
        -specifictrap => 2724,
        -varbindlist => \@oid
        );

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


$session->close;

exit 0;