Sys::Info::OS will detect bitness. In conjunction with Sys::Info::Base:

package Foo;

use strict;
use warnings;
use base qw(Sys::Info::Base);

my $class = __PACKAGE__->load_subclass('Sys::Info::Driver::%s::OS');
print $class, "\n";
print $class->bitness, "\n";
[download]