Help for this page
local $SIG{'CHLD'} = sub { print "dead child\n"; $timeout=0 };
local $SIG{'CHLD'} = sub { $timeout=0 };
#!/usr/bin/perl use strict; ... my $ret = system("sleep 20"); exit $ret; }