IO::Socket::INET->new(Listen => 5,
                      LocalAddr => 'localhost',
                      LocalPort => 2000,
                      Proto     => 'udp');

#...
exec "otherprog" if fork == 0;