$trap = new Mon::SNMP;

    $trap->buffer($snmptrap);

  %traphash = $trap->decode;

print %traphash;
    foreach $oid (keys $traphash{"varbindlist"}) {
	$val = $traphash{"varbindlist"}{$oid};
    	print "oid($oid) = val($val)\n";
    }