Perl udp socket broadcast

I want a debian linux pc to listen for a udp broadcast with a numeric key and respond to the other network device if the key matches. I want a windows device to open a socket and broadcast a udp packet with a numeric key ie (1234) When the debian pc responds i want to resolve the ipaddress of the debian pc and display the ip address of the debian pc. There will be several listeners and several senders which is why the key is important because the debian pc needs to ignore the window pc with the wrong key ie(2345) All devices will be on dhcp so users will not know ip addresses which is why i need to broadcast