#!/usr/bin/perl

my $greeting = $ARGV[0] // '********** PERL RECEIVED A NOTIFICATION:';

sub my_receiver {
    print $greeting, "\n";
}

NetSNMP::TrapReceiver::register("all", \&my_receiver) || warn "failed to register\n";
print STDERR "Loaded the example perl snmptrapd handler\n";