The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl
use strict;
use SNMP::Extension::PassPersist;

# create the object
my $extsnmp = SNMP::Extension::PassPersist->new;

# add a few OID entries
$extsnmp->add_oid_entry(".1.2.42.1", "integer", 42);
$extsnmp->add_oid_entry(".1.2.42.2", "string" , "the answer");

# run the program
$extsnmp->run;