#/usr/bin/perl -w
use locale;
print "veuiilez entrer la temperature : ";

while (my $temperature= <STDIN>)
{

	if ($temperature >= 30) 
	{
	print "trop chaud! \n";
	}	
	elsif ($temperature <= 20) 
	{
	print "trop froid! \n";
	}
	elsif ($temperature=~/[20-30]/) 
	{
	print "impecable!,\n";
	}
}