#!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);