The method I would use:

Is take just print the menu (using print or printf). And then look have a variable waiting for <STDIN>. After chomping this variable, I would use a lot of if/elsif statements (quick and dirty), or possibly a hash of references to subs to do what I need to be done when a choice has been made. Perl has no CASE or SWITCH statements, but that should not stop you from

-Enlil