ssdp discovery - IO::Socket usage example