# Largest unsigned integer.

print ~0;

# The largest signed integer

print +(~0)>>1;     

# Smallest signed integer.

$n = (~0)>>1; print do{ use integer; ~$n };