Sorry I made a typo while modifying the function before posting...the while line should read:
while ( (sysread, $clientid, $incoming, 1024) != 0) {
Thanks dws for pointing that out.

-Adam Stanley
Nethosters, Inc.