Ok, I finally got it. Here's what I ended up with:

use strict;
use IO::Socket;

my $client=new IO::Socket::INET (LocalPort => 10060,
                                 Proto     => 'tcp',
                                 Listen    => 5,
                                 Reuse     => 1);
die "Can't connect: $!\n" unless $client;

while (my $return=$client->accept()) {
      my $server=new IO::Socket::INET (PeerAddr => 'jazz.logicware.com
+',
                                       PeerPort => 10057,
                                       Proto    => 'tcp');
      die "Can't create: $!\n" unless $server;

      while (my $msg=<$server>) {
            print $return $msg;
      }
}
close $client;
[download]

Any additional suggestions would be great.
One additional thing I'd like to know is how to get the IP (and port) of the client.

Thanks for the help.