in reply to Perl fork problem

May I ask why you choose to use fork? Do you understand what fork is for? Would you be surprised if the output were:

This is parent process and child ID is 16417 This is child process Chile process is existing Parent process is existing
or even
This is child process This is parent process and child ID is 16417 Chile process is existing Parent process is existing

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e