my ($handler, $registration_info, $request_info, $requests) = @_; 

##</code><code>##

my $agent = new NetSNMP::agent(
    # searches for /etc/snmp/$agent_name.conf !!
    'Name' => $agent_name,
    'Ports' => "udp:$port,tcp:$port",
);
pdebug("SNMP agent created");

my $regoid = new NetSNMP::OID($reg_oid);
$agent->register($agent_name, $regoid, \&request_handler);
pdebug("SNMP agent registered");