Select Code to Download

use SNMP;
use Net::MAC;
my $ip_address : shared= "";
my $pool : shared = 0;
my $nthreads = 10; # Number of threads in pool

 
foreach (1..$nthreads) {
    threads->create(\&getIP);
}

foreach $ip (@ip_addresses) {

...


}

sub getIP {

...
}
}