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

use Term::ANSIColor;

$TPS=5.00;
$TVQ=8.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);
$TOTAL_TAXE = $TOTAL_TPS + $TOTAL_TVQ;
$MONTANT_TOTAL = $MONTANT + $TOTAL_TVQ + $TOTAL_TPS;
$_20 = ($MONTANT + $TOTAL_TPS + $TOTAL_TVQ) * (20 / 100);
$_50 = ($MONTANT + $TOTAL_TPS + $TOTAL_TVQ) * (50 / 100);
$_30 = ($MONTANT + $TOTAL_TPS + $TOTAL_TVQ) * (30 / 100);

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

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

# TOTAL TVQ TPS
printf colored (" TOTAL TAXE", yellow);
printf("= %0.2f \$ \n", $TOTAL_TAXE);

printf colored ("------------------------------------------\n", red);

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

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

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

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

printf colored ("------------------------------------------\n", red);