D:\>perl -V:ivsize
ivsize='4';

D:\>perl -le "print 1169367104<<5;"
3060008960

D:\>perl -Minteger -le "print 1169367104<<5;"
-1234958336