Test::TCP - testing TCP program