#!perl

use strict;
use warnings;
use Sys::Info;
use Sys::Info::Constants qw( :device_cpu );

my $info = Sys::Info->new;
my $cpu = $info->device( 'CPU' );
printf "%s(%s bit)\n", scalar $cpu->identify, $cpu->bitness;