Réaliser un questionnaire à choix multiples

Si le choix n'est pas toujours facile, le module Term::UI peut au moins faciliter les choses pour proposer ce choix.

use Term::UI;
use Term::ReadLine;

my $term = Term::ReadLine -> new('your_prompt');

my $reply = $term -> get_reply (
                prompt => "Votre couleur favorite",
                choices => [qw|bleu vert rouge|],
                default => 'bleu',
                );

print "Vous avez repondu $reply \n";