use warnings;
use strict;

use Net::SNMP;
use Data::Dumper;

(Variable declaration omitted)

my $var = Net::SNMP->session( '-hostname' => $host, '-version' => $ver, '-community' => 'public', '-translate' => [-octetstring => 0]);

my $response = $var->get_request( '-varbindlist' => [$oid]);

print Dumper $response;