For some more sophisticated applications, you might want to have a look at Term::Clui.

Hope this helps, -gjb-