Event and IO::Socket

Are there any tricks to getting Event to trigger when a socket receives
input?  I'm doing something equivalent to:

    $sock_in = IO::Socket::INET->new(
				      LocalPort => $cfg->socket_nbr,
				      Proto => 'udp',
				      ReuseAddr => 1,
				      Timeout => 1,
				     );

and

    $events{socket} =
      Event->io(
		cb	 => \&checkin,
		fd	 => $sock_in,
		poll	 => 'r',
		max	 => TIMEOUT_PERIOD,
	       );

but I'm not sure I'm on the right track.

-- 
Jeff Boes                                      vox 269.226.9550 ext 24
Database Engineer                                     fax 269.349.9076
Nexcerpt, Inc.                                 http://www.nexcerpt.com
           ...Nexcerpt... Extend your Expertise