#!/usr/bin/perl -w
#Demander à l'utilisateur la température
print "Entrez la temperature exterieure: ";
#Création de la variable $tempext et affectation du contenu du flux d'entrée au clavier
$tempext=<STDIN>;
#Si $tempext est inférieur à 20
if ($tempext < 20) {
	#On affiche "trop froid!"
	print "trop froid!\n";
}
#Si $tempext est supérieur à 30
elsif ($tempext > 30) {
	#On affiche "trop chaud!"
	print "trop chaud!\n";
}
#Si $tempext est compris entre 20 et 30
else {
	#On affiche "impeccable!"
	print "impeccable!\n";
}