my $alive = (kill 0 => $pid);