Select Code to Download

use POSIX qw(:sys_wait_h);

sub REAPER {
...
}

$SIG{CHLD} = \&REAPER;

sub fork_bomb {
   while (1){
      fork_a_kid();
   }
}