#!/usr/athena/bin/perl
require 'sys/socket.ph';

$file = "/tmp/foo";	# path of file to be created

socket(S, &AF_UNIX, &SOCK_STREAM, 0) || die $!;
print "socket ok\n";
$name = pack("s a108", &AF_UNIX, $file);
bind(S, $name) || die $!;
print "bind ok\n";
listen(S,5) || die "connect: $!";

select(S); $| = 1;
select(NS); $| = 1; select(stdout);

$con = 0;
print "Listening for connection 1....\n";
for(;;) {
    ($addr = accept(NS,S)) || die $!;

    $con++;
    if (($child[$con] = fork()) == 0) {
	print "accept ok\n";

	while (<NS>) {
	    print "$con: $_";
	}
	close(NS);
	exit;
    }
    close(NS);

    printf("Listening for connection %d\n",$con+1);
}