You have to somehow configure your server to listen on the ip of the server, not localhost.

A quick testing shows that, it will not work otherwise, although you can access from localhost.

server.pl

use IO::Socket::INET;

my $s = IO::Socket::INET->new(Proto => "tcp", LocalAddr => $ARGV[0], L
+ocalPort => 8080, Listen => 10) || die "failed";
$s->accept();
print "accepted\n";
[download]

client.pl

use IO::Socket::INET;

my $c = IO::Socket::INET->new(Proto => "tcp", PeerAddr => $ARGV[0], Pe
+erPort => 8080) ||die "failed";
[download]

Say the name of your computer is Blah. Then: