$socket->send("CLIENT dict4perl\n");
my $buf;
while ($socket->recv($buf, 1024)) {
    print $buf . "\n";
}