print unpack"l","Conn";

##</code><code>##

        $message="Connect!!";
        my $len= pack("l",length($message));
        $bytes_sent = syswrite( $main_socket, $len.$message );