Select Code to Download

use strict;
use warnings;
...
use threads::shared; # Thread::Pool uses 'threads'?
use Thread::Pool;
use POSIX;

$SIG{CHLD} = sub { while ( POSIX::waitpid(-1,POSIX::WNOHANG) > 0 ) { }
+ };

die "ERROR: unable to fork!! Dying." unless defined (my $child = fork)
+;
exit 0 if $child;
...
umask (0);
$ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin";
return $$;

1408  open("/usr/lib/perl/5.8.0/auto/Storable/_freeze.al", O_RDONLY|O_
+LARGEFILE) = 11
1408  fstat64(11, {st_mode=S_IFREG|0644, st_size=706, ...}) = 0
...
1408  kill(1405, SIGRTMIN) = -1 ESRCH (No such process)
1408  rt_sigprocmask(SIG_SETMASK, NULL, [RTMIN], 8) = 0
1408  rt_sigsuspend([]