Check the least significant bit. It is set for odd numbers:

print "$_ is " . ($_ & 1 ? "odd" : "even") . "\n" for 0..3;
[download]

Prints:

0 is even
1 is odd
2 is even
3 is odd
[download]