Hi. Using IO::Socket::INET for the first time, i have an interesting problem, when my client is on the same host thant the server, it works, otherwise, the socket connection is refused. This is kinda weird since when using non object modules (ie. Socket, Carp...) and the plain commands: socket() connect() accept(), it works... Here is my client:

#!/usr/bin/perl -w
use IO::Socket;
my $sock = new IO::Socket::INET (
                                 PeerHost => shift || 'localhost',
                                 PeerPort => 7070,
                                 Proto => 'tcp',
                                );
die "Could not create socket: $!\n" unless $sock;
print $sock "Hello there!\n";
close($sock);
[download]

And the server:

#!/usr/bin/perl -Tw
use IO::Socket;
my $sock = new IO::Socket::INET (
                                 LocalHost => 'localhost',
                                 LocalPort => shift || 7070,
                                 Proto => 'tcp',
                                 Listen => 1,
                                 Reuse => 1,
                                );
die "Could not create socket: $!\n" unless $sock;
my $socket;
my $data;
for ( ; $socket = $sock->accept(); close $socket) {
  while ($data = <$socket>){
    print $data;
  }
}
close($sock);
[download]