#!/usr/bin/perl

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

my $hostname = '127.0.0.1';
my $community = 'DoesNotWork';

$SNMP::verbose = 1;
$SNMP::debugging = 1;

main();

sub main
{
   my @item =('something that leaks', 
              'more leaking stuff');
   unless (not @item) {           
       doit();
  }
}

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