#!/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";
	}
}