#!/usr/bin/perl -w

#On affiche "Donnez-moi la temperature exterieure en degre Celsius : "
print "Donnez-moi la temperature exterieure en degre Celsius : ";
#On affecte à la variable $tempext le contenu de l'entrée standard <STDIN>
#<STDIN> est 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 !", suivi d'un retour à 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 !", suivi d'un retour à 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 !", suivi d'un retour à la ligne
	print "Temperature impeccable !\n";
}