tests.pl

#!/usr/bin/env perl
#
use Term::ANSIMenu;
use strict;
use warnings;

my @menu_items = ();
my @tmp        = ();
my $counter    = 1;
my @available_choices =
  ('menu choice one', 'menu choice two', 'menu choice three');

sub handle_menu_item {
    print "Handling menu item\n"
}

foreach my $item (@available_choices) {
    @tmp = ($counter, $item, \&handle_menu_item);
    push @menu_items, [@tmp];
    $counter++;
}

my $menu = Term::ANSIMenu->new(
    width  => 40,
    title  => 'Choose your fate or die!',
    items  => \@menu_items,
    prompt => 'Selection:> '
);

$menu->print_menu();