use SNMP;
use Data::Dumper;
use strict;

if(not $ENV{'MIBS'}) {
$ENV{'MIBS'} = 'ALL';
}

if(not $ENV{'MIBDIRS'}) {
$ENV{'MIBDIRS'} = '/usr/share/snmp/private:/usr/share/snmp/mibs';
}

&SNMP::initMib();

$Data::dumper::Maxdepth = 2;
$Data::dumper::Maxrecurse = 2;
$Data::dumper::Deparse = 1;
print Dumper(\%SNMP::MIB);