my $clientSocket = new IO::Socket::INET( 
		PeerAddr => $ipSend, 
		PeerPort => $sendPort, 
		Proto => 'tcp',
	);
$clientSocket or die "Could not create socket:$!\n"; 
print $clientSocket "HELLO 1.0";  
sleep(3); 
close $clientSocket;