use Net::SNMP;

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