#!/usr/bin/perl
use warnings;
use strict;

use Term::UI;
use Term::ReadLine;
while () {
my $term    = Term::ReadLine->new('prompt');
my $reponse = $term->get_reply(
  prompt  => 'Choisis une formule :',
  choices => [ 'TVA 19.6', 'TVA 5.5', 'Augmentation', 'Reduction'],
  default => 'TVA 19.6',
);
print "Vous avez choisi : $reponse\n";

if ($reponse = 'TVA 19.6') {
require "19.6.pl";
}