in reply to Integer overflow

$result -= 2**32 if $result >= 2**31;

[download]

In Section Seekers of Perl Wisdom