#!/usr/bin/perl -w

use strict;
use threads;
use threads::shared;
use IO::Socket::INET;

my $sock = new IO::Socket::INET (
                                 LocalHost => 'localhost',
                                 LocalPort => '12345',
                                 Proto => 'tcp',
                                 Listen => 10,
                                 Blocking => 1,
                                );
die "Could not create socket: $!\n" unless $sock;

my($thread, $cnt);
my %usersocks : shared;
while (my $UserSock = $sock->accept()) {
   $cnt++;
   $thread = threads->create(\&connection, $UserSock, $cnt);
}

$_->join for threads->list;

sub connection {
   my ($sockID, $cnt) = @_;
   my $sockData;

   lock(%usersocks);
   $usersocks{$cnt} = $sockID;
   while($sockID->recv($sockData, 1024)) {
      print $sockData;

      #debug code to see contents of hash
      while(my($key, $value) = each(%usersocks)) {
         print "$key => $value\n";
      }

      $usersocks{$_}->send($sockData) for sort(keys %usersocks);
   }

   close($sockID);
   delete $usersocks{$sockID};
}
[download]