my $message = pack("l",9);
print "Sending message (",unpack("l",$message),") length of ",length($message), "\n";
$bytes_sent = syswrite( $main_socket, $message, length($message), 0);
$message="Connect!!";
$bytes_sent = syswrite( $main_socket, $message, length($message), 0);