#!/usr/bin/perl 
#####################
# programme de taxe #
#####################

use Term::ANSIColor;

$TPS=5.00;
$TVQ=7.50;

printf ("|---------------------|\n");
printf ("  Programme de taxes.\n  TPS = %f \n  TVQ = %f \n", $TPS, $TVQ);
printf ("|---------------------|\n");
printf colored ("------------------------------------------\n", red);
printf("  Entrer le sous-total = ");
chomp($MONTANT = <STDIN>);
printf colored ("------------------------------------------\n", red);

$TOTAL_TPS = $MONTANT * ($TPS / 100.00);
$TOTAL_BRUTE = $TOTAL_TPS + $MONTANT;
$TOTAL_TVQ = $TOTAL_BRUTE * ($TVQ / 100.00);
$MONTANT_TOTAL = $MONTANT + $TOTAL_TVQ + $TOTAL_TPS;
$_20 = ($MONTANT + $TOTAL_TPS + $TOTAL_TVQ) * (20 / 100);

# TPS
printf colored ("  TPS ", yellow);
printf("= %0.2f \$ \n", $TOTAL_TPS);

# TVQ
printf colored ("  TVQ ", yellow); 
printf("= %0.2f \$ \n", $TOTAL_TVQ);

# TOTAL
printf colored ("-----------------------------------------\n", red);
printf colored ("  TOTAL ", blue); 
printf("= %0.2f \$ \n", $MONTANT_TOTAL);
printf colored ("-----------------------------------------\n", red);

# %20
printf colored ("  20\% ", green); 
printf ("= %0.2f \$ \n", $_20);