use LWP::Simple;
use Parallel::ForkManager;
...
# Max 30 processes because we have 30 nodes in the cluster
my $pm = new Parallel::ForkManager(30);
foreach my $number_of_nodes {
$pm->start and next; # do the fork - the child process skips this loop
# execute your server query here
$pm->finish; # do the exit in the child process
}
$pm->wait_all_children;