...
        print "doing waitpid($pid,0)...\n";   # <---
        waitpid($pid,0);