#!/usr/local/bin/perl -w









use strict;




use Net::SNMP;




use Data::Dumper;




my $snmp = Net::SNMP->session(




                                -hostname               => '192.3.3.1',




                                -community              => 'public',




                                -port                   => '161',




);




my @oid;




$oid[0]='.1.3.6.1.2.1.4.20.1.2';




my @vars = $snmp->get_next_request(




                                -varbindlist => \@oid,




);




my $error = $snmp->error;




$snmp->close;




print Dumper(\@vars);




print Dumper(\@oid);




print "the OID array is\n";




print "@oid\n";




print "The Error??\n";




print "$error\n";