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

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

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";
return $term;
}
{
if ($reponse ='TVA 5.5')
require "5.50.pl";
return $term;
}
{
if ($reponse ='Augmentation')
require "augmentation.pl";
return $term;
}
{
if ($reponse ='Reduction')
require "reduction.pl";
return $term;
}