if ($pid) {

##</code><code>##

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