If you've got something in perl, that would be great... =)

I got as far as broadcasting "?" over udp to port 8300, but so far I'm not getting any reply (at least none I can see). I was confused in the java code that it started using the PROTOCOL_TCP_PORT constant (also 8300) to open a new socket connection. Am I supposed to open a TCP server on 8300 for the empeg to reply to, or is that constant used for something else?