my $oid = '1.3.6.1.2.1.25.3.5.1.2.1';
    my ($snmp,$error) = Net::SNMP->session(...);
    my $result = $snmp->get_request(-varbindlist => [ $oid ];
    print $result->{$oid},"\n";