D:\>perl -le "print 'wtf' unless ~0 < (~0) + 2048;"
wtf

D:\>perl -le "print 'wtf' unless ~0 < (~0) + 2049;"

D:\>