$server = IO::Socket::INET->new(
		      LocalAddr=>'localhost',
		      LocalPort=>$port,
		      Type=>SOCK_STREAM,
		      Proto=>'tcp',
		      Listen=>10
		      );

sub protocol($server)
{
	while(1)
	{
		if ($server->connected())
		{
			print "Socket is here :)";
		}
		$server->recv($data,1024);
		@recvData = split(/:/,$data);
		print $data;		
		print $recvData;	
	}
}

while(1)
{
	print "UP\n";
	$server->accept();
	print $server->connected();
	$p = threads->create(\&protocol => $server);

}