#!/usr/bin/perl

use strict;
use IO::Prompter;

my $animal = prompt 'Select' -style=>'bold red on yellow', -number, -menu=>[ 'Cat', 'Dog', 'Tiger' ], ' >';

print $animal;