I have used Term::ANSIMenu in a couple of projects. Its easy to use, and works great.