http://www.perlmonks.org?node_id=936611


in reply to get hardware and OS configuration information

Upgraded and improved:

use Sys::Info; use Sys::Info::Constants qw( :device_cpu ); my $info = Sys::Info->new; my $cpu = $info->device('CPU'); printf "\nWe have %s ", scalar $cpu->count; printf "%s-bit CPU", scalar $cpu->bitness; printf " %s\n", scalar $cpu->identify; printf "The CPU speed is: %s\n", scalar $cpu->speed; print "We are running a ",$^O", system\n";

if you are in win you can also Use Win32::GetOSName(); Use Win32::GetOSVersion();