Modifying perl fork