unless ($cpid[$i]) { 
            exec 'perl',$_
              or die "exec error: $!\n";
        }