if ($pid && $perl_pid == $$) {