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

##</code><code>##

$ net_snmp_problem.pl
No response from remote host "127.0.0.1"

##</code><code>##

Can't find string terminator "'" anywhere before EOF at ./net_snmp_problem.pl line 12.