_____    socket      _____  com1
        |   |________________|    |----|
        |   |                |    |----|    
        -----                ------com2

##</code><code>##

     use IO::Socket;


$server = IO::Socket::INET->new(Listen    => 5,
                              LocalAddr => 'localhost',
                              LocalPort => 10001,
                              Proto     => 'tcp');
open( PORT, "+>COM1" ) or die "Can't open COM1: $!";
binmode(PORT);
	while ($client = $server->accept()) {
		
		while($response = <$client>){
		
		
		print PORT $response;
		sleep 1;
		while(read(PORT, $tem_response,2048)){
			print $client $tem_response;
} 
    }
}

close($server);