I haven't done it myself, but maybe you can use select or IO::Select to wait for an incoming packet with a timeout. I don't know if it works for UDP sockets though.