5 BEGIN { $ENV{PATH} = '/usr/ucb:/bin' }
6 sub logmsg { print "$0 $$: @_ at ", scalar localtime, "\n" }
9 my $uaddr = sockaddr_un($NAME);
11 socket(Server,AF_UNIX,SOCK_STREAM,0) || die "socket: $!";
13 bind (Server, $uaddr) || die "bind: $!";
14 listen(Server,SOMAXCONN) || die "listen: $!";
16 logmsg "server started on $NAME";
18 accept(Client,Server);
19 logmsg "connection on $NAME";
20 print Client "from server\n";