#!/usr/bin/perl -w
# FILE: chatserver_02.pl
# FROM: http://manpages.ubuntu.com/manpages/maverick/man3/IO::Multiplex.3pm.html
use IO::Socket;
use IO::Multiplex;

my $mux  = new IO::Multiplex;

# Create a listening socket
my $sock = new IO::Socket::INET(Proto     => 'tcp',
                                LocalPort => shift || 2300,
                                Listen    => 4)
               or die "socket: $@";

# We use the listen method instead of the add method.
$mux->listen($sock);

$mux->set_callback_object(__PACKAGE__);
$mux->loop;

sub mux_input 
{
   my $package = shift;
   my $mux     = shift;
   my $fh      = shift;
   my $input   = shift;

   # The handles method returns a list of references to handles which
   # we have registered, except for listen sockets.
   foreach $c ($mux->handles) 
   {
      print $c $$input;
   }
   $$input = '';
}