use Sys::Info;
use Sys::Info::Constants qw( :device_cpu );
my $Info = Sys::Info->new;
my $Cpu  = $Info->device( CPU =>%options );
printf "CPU Load: %s % (last minute)\n", ($Cpu->load(DCPU_LOAD_LAST_01)*100);