perl -e "print 1234567890123456789012345678900 % 2"
0
perl -e "print 1234567890123456789012345678901 % 2"
0

##</code><code>##

perl -MMath::BigInt -e "print Math::BigInt->new('1234567890123456789012345678900') % 2"
0
perl -MMath::BigInt -e "print Math::BigInt->new('1234567890123456789012345678901') % 2"
1