Oh, back on the perl thing... the file read/conn send can even be shortened to this:

$conn->send($buf) while $buf = $fp->read($blocksize);

But some people complain about Englishised Perl like that because it's too easy to read. They expect bassackwards computer Yodaspeak.