#!perl -w
# usage: showerr.pl port
use IO::Socket;
use strict;

$| = 1;

$SIG{CHLD} = 'IGNORE';
my $localport = shift;
my $socklisten = IO::Socket::INET->new(LocalPort => $localport,
                                   Listen   => 2,
                                   Reuse   => 1,
                                   Proto    => 'tcp')
			 or die "Cannot open sock on $localport: $!\n";

while (my $readport = $socklisten->accept) {
  print "Accepted new connection at ", scalar(localtime), "\n";
  print while <$readport>;
  print "Connection closed at ", scalar(localtime), "\n";
}