use integer;
my $n = 534587;
print "even\n" if($n & 1 == 0);    # checking LSB with Bitwise And on an integer