use strict; 
use warnings;
use Net::SNMP;

my $ip = XXX.XXX.XXX.XXX;

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();