Perlで64bit整数対応かどうか調べる

#!/usr/bin/perl
print((~0>>31==1)?"32bit":"64bit");