$n = 9_007_199_254_740_992; print 'Even' unless $n % 2;;
Even

##</code><code>##

++$n; print 'Even' unless $n % 2;;
Even

##</code><code>##

my( $loWord, $hiWord ) = ( $n & 0xffff, $n >> 16 );

##</code><code>##

print unpack 'N', pack 'N', 99_999_999_999;;
4294967295

##</code><code>##

printf "%d\n", 99_999_999_999;;
-1

##</code><code>##

my $indexSize = 4 * $noLines;