Help for this page

Select Code to Download


  1. or download this
    use strict;
use POSIX;
use IPC::Shareable;
...
my $PREFORK  = 25;        # number of children to maintain

my @doms = keys %hash;
  2. or download this
    # define the anon arrays here instead of in the child
foreach(@doms)
{
...

print Data::Dumper->Dump([\%mxs]); 
exit;
  3. or download this
    sub child
{
    my $url = shift;
...
    $knot->shunlock;
    exit;
}
  4. or download this
    use strict;
use POSIX;
use IPC::Shareable;
...
    $knot->shunlock;
    exit;
}