#!/usr/bin/perl
use strict;
use warnings;
use SNMP;
use Data::Dumper;

main();

sub main
{
  for my $item ('something that leaks', 'more leaking stuff')
  {
    doit();
  }
}

sub doit
{
  my $session = new SNMP::Session(DestHost  => '127.0.0.1',
                                  Community => 'DoesNotWork', 
                                  Timeout   => 0,
                                  Version   => '2c');
  my $x = $session->bulkwalk(0, 1, ['.1.3.6.1.2.1.1.1']);
  die 'DUMP IT: ' . Dumper \$x;
}

##</code><code>##

DUMP IT: $VAR1 = \[
            'something that leaks',
            'more leaking stuff',
            undef
          ];

##</code><code>##

os: kubuntu-10.04
perl: v5.10.1
libsnmp-perl: 5.4.2.1~dfsg0ubuntu1-0ubuntu2.1