$SIG{CHLD} = sub {wait()};

##</code><code>##

    } else {
        $line = <STDIN>;
        print $new_sock "$line";
    }

##</code><code>##

chomp($buf);
exit(0) if ($buf eq 'q');