Help for this page

Select Code to Download


  1. or download this
     use Parallel::ForkManager qw( );

my $pm = Parallel::ForkManager->new(int(@files/4));
...

   $pm->finish; # Terminates the child process
}
  2. or download this
    #!/usr/bin/perl
use Net::IP;
use LWP::UserAgent;
...

foreach my $pid (@Pids) { waitpid($pid, 0) }
}