#!/usr/hacks/bin/perl

$port = 2345 unless ($port = shift);

require 'sys/socket.ph';

$sockaddr = 'S n a4 x8';

($name, $aliases, $proto) = getprotobyname('tcp');
($name, $aliases, $port) = getservbyname($port, 'tcp')
     unless $port =~ /^\d+$/;

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

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

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

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

for (;;) {
     print "Listening again (port#$port)\n";
     ($addr = accept(NS,S)) || die $!;
     print "accept ok\n";

     ($af,$port,$inetaddr) = unpack($sockaddr,$addr);
     print "$af port#$port ".join('.',unpack('C4',$inetaddr))."\n";

     while (<NS>) {
	print;
	print NS;
     }
}