Select Code to Download

sub fork_bot{
    my $arg = shift;
...
    kill 1, $pid or die "Can't kill $arg->{bot}: $!\n";
    exit(0);
}

my $chld;
do{
   $chld = wait();
}while($chld >= 0);