#!/usr/bin/perl -w
#On affiche "Donnez-moi la temperature exterieure en degre Celsius (Sous le format 20 ou 20.5) : "
print "Donnez-moi la temperature exterieure en degre Celsius (Sous le format 20 ou 20.5) : ";
#On affecte à la variable $tempext le contenu de l'entrée standard <STDIN> (Pointeur qui permet de lire le flux d'entrée au clavier)
$tempext=<STDIN>;
#Si le contenu de la variable $tempext est inférieur à 20, on exécute le bloc d'instructions
if ($tempext < 20) {
	#On affiche "Il fait trop froid !"
	#On retourne à la ligne
	print "Il fait trop froid !\n";
}
#Sinon si le contenu de la variable $tempext est supérieur à 30, on exécute le bloc d'instructions
elsif ($tempext > 30) {
	#On affiche "Il fait trop chaud !"
	#On retourne à la ligne
	print "Il fait trop chaud !\n";
}
#Sinon (Puisqu'aucune des 2 conditions précédentes n'a été remplie et donc que le contenu de la variable $tempext est compris entre 20 et 30), on exécute le bloc d'instructions
else {
	#On affiche "Temperature impeccable !"
	#On retourne à la ligne
	print "Temperature impeccable !\n";
}