There doesn't seem to be any way to do a half-close on an IO::Socket::INET, which would seem like the right solution to me. Anyone want to prove me wrong?

If no_slogan is right, and I'm guessing he is, try putting this code before your while:

shutdown($new_sock, 1);
[download]

Let us know if that works.

Also, if you really want to impress the babes, code your while loop like this:

print while <$newsock>;
[download]

Updated: 11/25/2002: It works on my system