#!/usr/bin/perl
use 5.10.0;
use strict;
use warnings;
use Socket;
use threads;

my $rendezvous = shift || 'catsock';
my $max_clients = 10;

$_->join for map { threads->create( \&run_client ) } 1 .. $max_clients;

sub run_client {
	my $sock;
	unless ( socket($sock, PF_UNIX, SOCK_STREAM, 0) ) {
		warn "socket: $!";
		return;
	}
	unless ( connect($sock, sockaddr_un($rendezvous)) ) {
		warn "connect: $!";
		return;
	};
	while ( defined(my $line = <$sock>) ) {
		print $line;
	}
}


##</code><code>##

$ perl -T 855342.pl
855342.pl 22345: server started on catsock at Tue Aug 17 11:00:49 2010
855342.pl 22345: connection on catsock at Tue Aug 17 11:00:51 2010
855342.pl 22345: begat 22348 at Tue Aug 17 11:00:51 2010
855342.pl 22345: connection on catsock at Tue Aug 17 11:00:51 2010
855342.pl 22345: begat 22350 at Tue Aug 17 11:00:51 2010
855342.pl 22345: connection on catsock at Tue Aug 17 11:00:51 2010
855342.pl 22345: begat 22352 at Tue Aug 17 11:00:51 2010
855342.pl 22345: connection on catsock at Tue Aug 17 11:00:51 2010
855342.pl 22345: begat 22355 at Tue Aug 17 11:00:51 2010
855342.pl 22345: connection on catsock at Tue Aug 17 11:00:51 2010
855342.pl 22345: begat 22356 at Tue Aug 17 11:00:51 2010


WTF?



##</code><code>##

accept(3, 0x7fff3015acc0, [4096])       = ? ERESTARTSYS (To be restarted)