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";
	}	
}