use locale;
#!/usr/bin/perl

#On affiche à l'écran:
print "Quelle est la temperature aujourd'hui?\n";

#L'argument vient de la saisie du clavier:
$t=<STDIN>;


#Si la température est supérieure à 30°C...
if ($t>30){

	print "Il fait trop chaud pour travailler...\n";
}	

#Si on a une température inférieure à 30°C, on passe à un nouveau bloc d'instructions...
#Cette nouvelle condition est: température inférieure à 20°C et supérieure à 10°C
elsif (($t<20) && ($t>10)){

	print "Il fait un peu frisquet non?\n";
}	

#On peut créer des conditions à l'infini!
elsif ($t<=10){

	print "C'est la temperature parfaite pour un p'tit vin chaud!\n";
}	

#Si on n'a ni une température supérieure à 30°C ni inférieure à 20°C ni etc. alors...
else {

	print "Ahhhhhhhh! C'est la temperature ideale, faut pas rester sur l'ordi!\n";
	
}



