Perl, TCP/IP

Помогите разобраться в проблеме. Есть клиент, написанный на Perl:
#!/usr/bin/perl -w
use IO::Socket;
$remote = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => "myserver.ru",
PeerPort => 2345,
)
or die "cannot connect";
$remote -> send ('Hello, its your client');
$remote -> recv ($text, 128);
print $text;
Сервер на C++, текст приводить здесь не буду. Клиент должен передать серверу сообщение 'Hello, its your client', сервер - принять и отправит его же обратно клиенту. Клиент - принять и вывести на экран.
Проблема в том, что если запускать сервер и клиент на одной машине, то все работает. Если на разных, клиент отправляет сообщение, сервер принимает, оправляет обратно клиенту, а вот клиент его не принимает. Может дело в синхронизации? В общем, помогите плиз.

С уважением