You need to hot flush your output. Since you are using IO::Socket, you can do this by setting $client->autoflush(1) as soon as possible:

while ($client = $server->accept()) {
$client->autoflush(1);
[download]

Also, you should use strict; and enable  -w (warnings). It will help you catch lots of mistakes and typos within your code.