my( $session, $error );


        ( $session, $error ) = Net::SNMP->session(
                                -hostname=>'1.1.1.1',
                                -community=>'silly',
                                -port=>162 );
        if( length( $session->error())) {
                print "Session Error $session->error()\n";
                return;
        }
        my( $result );
        $result = $session->trap( -enterprise=>'.3.1.4.1.5',
                        -specifictrap=>1000,
                        -varbindlist=>['.3.1.4.1.5', UNSIGNED32, $result{1},
                                       '.3.1.4.1.5', UNSIGNED32, $result{2},
                                       '.3.1.4.1.5', UNSIGNED32, $result{3},
                                       '.3.1.4.1.5', UNSIGNED32, $result{4},
                                       '.3.1.4.1.5', UNSIGNED32, $result{5},
                                       '.3.1.4.1.5', UNSIGNED32, $result{6},
                                       '.3.1.4.1.5', UNSIGNED32, $result{7},
                                       '.3.1.4.1.5', UNSIGNED32, $result{8} ]
                );


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

        $result = $session->trap( -enterprise=>'.1.3.6.1.3.42',
                        -specifictrap=>999,
                        -varbindlist=>['.3.1.4.1.5', UNSIGNED32, $result{9},
                                       '.3.1.4.1.5', UNSIGNED32, $result{10}]
                );

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

}