As a side note, with such complex data structures, I frequently find the output hard to read unless I tweak the indent:

my $name = $mib->compile('att_ds1');
$Data::Dumper::Indent = 1;
print Dumper($name);
[download]

The output is then similar to the following:

$VAR1 = {
  'tree' => {
    'att-products' => {
      '9' => 'att-cnmAgent'
    },
    'attCNMds1ErrorsTable' => {
      '1' => 'attCNMds1ErrorsEntry'
    },
    'attCNMds1ErrorsEntry' => {
      '9' => 'attCNMds1ESs',
      '1' => 'attCNMds1ErrorsIndex',
      '2' => 'attCNMds1ErrorsInterval',
      '3' => 'attCNMds1ErrorsTimeStamp'
    },
    'enterprises' => {
      '74' => 'att-2'
    },
    'attCNMds1StatusTable' => {
      '1' => 'attCNMds1StatusEntry'
    },
    'attCNMds1StatusEntry' => {
      '1' => 'attCNMds1StatusIndex',
      '2' => 'attCNMds1LineStatus'
    },
    'att-2' => {
      '1' => 'att-products',
      '2' => 'att-mgmt'
    },

###
[download]

Cheers,
Ovid

New address of my CGI Course.
Silence is Evil (feel free to copy and distribute widely - note copyright text)

That is handy,
Thanks for the tip!

If you want concise output, you might try my module Data::XDumper instead: it tries to dump sub-structures on a single line whenever possible without exceeding some (configurable) line length.

More like:

{
   tree => {
      'att-2' => {1 => 'att-products', 2 => 'att-mgmt'},
      'att-products' => {9 => 'att-cnmAgent'},
      attCNMds1ErrorsEntry => {
         1 => 'attCNMds1ErrorsIndex',
         2 => 'attCNMds1ErrorsInterval',
         3 => 'attCNMds1ErrorsTimeStamp',
         9 => 'attCNMds1ESs'
      },
      attCNMds1ErrorsTable => {1 => 'attCNMds1ErrorsEntry'},
      attCNMds1StatusEntry => {
         1 => 'attCNMds1StatusIndex',
         2 => 'attCNMds1LineStatus'
      },
      attCNMds1StatusTable => {1 => 'attCNMds1StatusEntry'},
      enterprises => {74 => 'att-2'}
   }
}
[download]

(this is with prefix set to "" because you don't have any cross-references, and a reduced maximum line length)

I'm still getting this error:

syntax error at C:\mibs.pl line 29,near "}->"
[download]

using :

$mib->load('att_ds1');
my $name = $mib->compile('att_ds1');

print $name->{nodes}->{attCNMds1StatusIndex}->{description};
[download]

My mistake....it works fine
Thanks again.