(defun receive-data ()
  (let ((connection  (socket-connect nil nil
				     :local-host *wildcard-host*
				     :local-port 23456
				     :protocol :datagram
				     :element-type '(unsigned-byte 8))))
    (unwind-protect (loop 
		      (if (wait-for-input connection)
			  (print (socket-receive connection nil 5))))
      (when connection (socket-close connection)))))