Testing TCP program, following the Perl's Test::TCP and the other test servers.