#!/usr/bin/perl

use IO::Socket;
$SIG{CHLD} = sub {wait ()};
$main_sock = new IO::Socket::INET (LocalHost => '0.0.0.0',
                                   LocalPort => 1200,
                                   Listen    => 5,
                                   Proto     => 'tcp',
                                   Reuse     => 1,
                                  );
while ($new_sock = $main_sock->accept()) {
    $pid = fork();
    if ($pid == 0) { 
        # Child process
        while (defined ($buf = <$new_sock>)) {
           print $new_sock `$buf`;
        }
        exit(0);
    }
}
close ($main_sock);