#!/usr/bin/perl -w

$max = 100;
$min = 0;

while($number = <>){
   chomp($number);
   $state = "legal";
   if ( $number > $max || $number < $min ){
        $state = "il".$state;
   } 
   print "$number is $state.\n";
   if ($state eq "legal" && $number%2==0){
       print "And it's even!\n";
   }
}