thread failed to start: Invalid value for shared scalar at server_client_thread.pl line 41.
thread failed to start: Invalid value for shared scalar at server_client_thread.pl line 59.

for lines:
	    $controlSocket = IO::Socket::INET->new("localhost:1024") or print "Can`t open feed\n";
and
		$server = IO::Socket::INET->new( Proto => 'tcp',