Since noone has responded yet, I'll suggest you add the following two lines where appropriate:

use IO::Handle;
$client->autoflush(1);
[download]

(and "where appropriate" probably means they won't be adjacent and the second one may appear more than once). Put the second one directly after you create the $client socket in both the client and the server.

        - tye (but my friends call me "Tye")