I have looked at quite a few of the suggestions made throughout this thread and made some changes without much improvement.

I run my script using the suggested Devel:Trace and found that the while(1) loop that you pointed out was indeed causing some issues with resource (Race Condition).

So I did what you suggested and removed the Parent Loop and the close $sock;.

now my problem is that after a connection is made, passed off to the child and child exits, the Parent/script exits.

How can I make the Parent sit idle waiting for the next connection without re creating the socket?.