Select Code to Download

#!/usr/bin/perl

...
        }
    }
}

use strict;
use warnings;
...
$sock->send("HELLO\n");

close ($sock);

lofile, obtained from "perl server.pl > log" and the perl client.pl on
+ the other machine

...
GOT SOMETHING!
...
this goes on until I interrupt it with ctrl-c