my ($session, $error) = Net::SNMP->session( ... )
for ( 1..$num_traps ) {
  $session->trap( ... );
}
$session->close();