#!/usr/bin/perl
use strict;
use warnings;

use NetSNMP::agent;
my $agent;

sub my_handler {
    my ($handler, $registration_info, $request_info, $requests) = @_;
    my $request;

    $request->setValue(ASN_OCTET_STRING, "hello\n");
}

$agent = new NetSNMP::agent(
                             'Name' => 'my_agent_name',
                            );
$agent->register(
                    "my_agent_name",
                    ".1.3.6.1.4.1.9999.9999.9999.9999.9999",
                    \&my_handler
                 );

$agent->main_loop();