Hi,

Looks ok for me. On your code replace:

$self->Usage ("Can't start client: $!");
[download]

with

$self->Usage ("Can't start client: $@");
[download]

And now, when you say it don't work, you mean that, more specificly? The socket is not opening, which error are you getting in $@?