#!/usr/bin/perl -w

while (1){
    @out = `sensors`;
    $cpu = `uptime`;
    $cpu =~ /load average: (\d+\,\d+)\,/; # first \, is spanish; change to \. to english
    $cpuload = $1;
    for (@out){
	if (s/Package id 0:\s+\+/+/){
	    s/C.+$/C/;
	    chomp;
	    /(\d+)/;
	    print " " x ($1-25), "$_ $cpuload\n";
	    last;
	}
    }
    sleep 60;
}