#! /usr/local/bin/perl

$visits=0;

($port) = @ARGV;
$port = 5193 unless $port;

use Socket;

$sockaddr = 'S n a4 x8';

($name, $aliases, $proto) = getprotobyname('tcp');

$this = pack($sockaddr, &AF_INET, $port, "\0\0\0\0");

socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $!";
bind(S, $this) || die "bind: $!";
listen(S, 6) || die "connect: $!";

for (;;) {
   ++$visits;
   ($addr = accept(NS,S)) || die $!;
   print NS "This server has been contacted $visits times\n";
}