in reply to Re: bitwise shift operator
in thread bitwise shift operator

Or consider this which doesn't use multiplication (but only works on a 32 bit machine.) 
$ perl -le'print ~0 + 1'
4294967296

[download]

In Section Seekers of Perl Wisdom