#!/usr/bin/perl -w

use 5.032;

my ($cpu, $cpuload);

while (1) {
    $cpu = `uptime`;
    $cpu =~ /load average: (\d+\,\d+)/;  # first \, is spanish; change to \. to english
    $cpuload = $1;
    for (`sensors`){
	if ( /Package id 0\:  \+(\d+)\.\d(.+C)\s/ ){                     # i.e. 65.0°C  no resolution by decimals
  	    print "  " x ($1-25), "$1$2 $cpuload\n";
	    last;	
	}
    }
    sleep 60;
}

exit 1;

__END__
  Util**2