local $SIG{'CHLD'} = sub { print "dead child\n"; $timeout=0 };