#!perl

use strict;
use warnings;

use Net::SNMP;

my $ip = '127.0.0.1';

my $SESSION = Net::SNMP->session (-hostname=>$ip, -community=>"private");

$SESSION->set_request(-varbindlist=> ['1.3.6.1.4.1.6080.3.1.2.4.0', INTEGER, 1]);

print $SESSION->error();