$ perl my_perl_script.pl
Undefined subroutine &main::choose_menu_item called at my_perl_script.pl line 7.