#!perl

use strict;
use warnings;
use CPAN;

CPAN::Shell->install(
"Params::Check",
"Module::CoreList",
"version",
"Module::Load",
"Locale::Maketext::Simple",
"IPC::Cmd",
"ExtUtils::CBuilder",
"Config::General",
"Win32API::Registry",
"Win::TieRegistry",
"Win32::OLE",
"Win32API::Net",
"Scalar::Util",
"File::Spec",
"File::Temp",
"Exporter",
"Capture::Tiny",
"Sys::Info::Base",
"Test::Sys::Info",
"Test::Harness",
"Test::More",
"Sys::Info::Driver::Unknown",
"Sys::Info::Driver::Windows::OS");

##</code><code>##

#!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;