my $svSvcName = '1.3.6.1.4.1.77.1.2.3.1.1';
my $message = "THIS IS AN SNMP TEST";
my @oids = ($svSvcName, OCTET_STRING, $message);
#my @oids;

my $result = $session->trap(
                            -agentaddr    => '172.16.4.32',
                            -varbindlist  => \@oids
                            #-varbindlist  => [$svSvcName, OCTET_STRING, "$message"]
);

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