$socket = new IO::Socket::INET (
PeerHost => '127.0.0.1',
PeerPort => '3000',
Proto => 'tcp',
) or die "ERROR in Socket Creation : $!\n";

print "TCP Connection Success.\n";

#while (sysread($socket, $byte, 1)== 1) {
#	print STDOUT $byte;
#    }