Net::SNMP::XS leakage test

use strict;
use warnings;

use Net::SNMP;
#use Net::SNMP::XS; # UNCOMMENT to see leakage

$| =1;
$\ = "\n";

print "$$ started";

sub proceed {
  for (my $i = 0; $i < 10000; $i++) {
    my ($ses, $err) = Net::SNMP->session(
      hostname => "127.0.0.1",
      version => "v2c",
      community => "public",
      nonblocking => 0,
      translate => 0
    );

    if (!defined $ses) {
      print $err;
      exit 1;
    }

    my $data = $ses->get_request(varbindlist => [".1.3.6.1.2.1.1.1.0"]);

    if (!defined $data) {
      print $ses->error();
    } else {
      #print "$_ = $data->{$_}" for keys %$data;
    }
  }
  print "Done";
}

while (1) {
  proceed();
  print "Once more ? (y[es])";
  my $val = <STDIN>;
  chomp $val;
  next if ($val =~ /y[es]/i)
}