Hmm I've slashed it down to:

while (my $recv = <$client>) {
    process_incoming($recv);
}
[download]

But this does not work correctly it randomly disconnects the client for some reason.

Also it's made for one person to be connected to it, which I will eventually hardcode into it at some point. </code>