#!/usr/bin/perl
use Parallel::ForkManager;
use DBI;

print "This script will brute force a OID and save it to WALK.TXT \n";
print "change the target= \n";
print "change the Parallel::ForkManager(5) for more or less threds\n";
print "You  need these perl modules\n";
print "cpan -i DBI\n";
print "cpan -i Parallel::ForkManager\n";
sleep(5);



my $target = "10.128.252.90";







##############################################################################


my $pm = new Parallel::ForkManager(5);

for ($count=1; $count<33697; $count++)
{
$pm->start and next;
print "$count ";
exec "snmpwalk -v 1 -c public -Cc $target 1.3.6.1.4.1.$count|grep $count  >>WALK.TXT ";
  $pm->finish; ## end point of the parallel process

}


$pm->wait_all_children; ## wait for the child processes


# cpan -i DBI
# cpan -i Parallel::ForkManager