#!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";
}

##</code><code>##

#!perl -w
use IO::Socket;
use strict;

my $errsocket = "1999";

system("start showerr.pl 1999");
sleep(5);


*STDERR = IO::Socket::INET->new(
	    Proto     => "tcp",
	    PeerAddr  => "localhost:$errsocket",
	    Timeout   => 30,
	 )
	 or die "cannot create socketremote: $!\n";



warn "This is a test";

print STDERR "testing\n";

sleep(10);