The "HELLO" won't be flushed to the file until you write more or close the file handle. You might want to do:

{ my $old= select(OUT); $|= 1; select($old); }
[download]

or

use IO::Handle;
...
OUT->autoflush(1);
[download]

so that you program hanging on accept() doesn't fool you, for example.

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