Help for this page

Select Code to Download

Select or download this

eval
{
...
     die unless $@ eq "alarm\n";
     kill 9, $CHILD
}