D:\>perl -wle "print 'ok' if 18446744073709554600 == 18446744073709554599;"
ok