3014060e2b06010401090929010203010200040232303013060e2b06010401090929010203010300020105301d060e2b06010401090929010203010400040b5379736c6f67205472
617030818c060e2b06010401090929010203010500047a3130363032333a2044656e792069636d7020737263206f7574736964653a3231362e3139362e36342e3132342064737420696e73
6964653a3230382e3130392e39302e323120287479706520382c20636f6465203029206279206163636573732d67726f757020226f7574736964655f6163636573735f696e223016060e2b
06010401090929010203010600430473c36bf8

##</code><code>##

use BER;
use SNMP_session;

my $session = SNMPv1_Session->open_trap_session ();
while (my ($trap, $sender, $sender_port) = $session->receive_trap ())
{
	&print_trap($session,$trap,$sender,$sender_port,$counter);

}

sub print_trap {

    my ($this, $trap, $sender, $sender_port, $counter) = @_;
	my $error=0;
    
 	my ($community, $ent, $agent, $gen, $spec, $dt, $error, @bindings) = $this->decode_trap_request ($trap);
	
 
	foreach my $encoded_pair (@bindings) {
			
		my ($oid, $value) = decode_by_template ($encoded_pair, "%O%@");
		print "returned pair: $oid -> $value\n";
	}	
}