ubuntu 14.04, perl 5.18.2.

Yes sorry, this is a snippet of a rather large open source program. the perl library is a web server, so I left out all the details around how the sub is called to make the post concise. If it helps, I can put in the URL to the source file on github. If the request is larger than a certain byte size, the print to socket is forked. Sometimes those are reaped, sometimes they are not.