#!/usr/bin/perl

use 5.034;
no warnings 'all';

while (1) {
    my $cpu = `uptime`;
    $cpu =~ /load average: (\d+\,\d+)/;  # first \, is spanish; change to \. to english
    my $cpuload = $1;
    for (`sensors`){
	next unless /Package/;
	if ( /Package id 0\:  \+(\d+)\.\d(.+C)\s/ ){                     # i.e. 65.0°C  no resolution by decimals
  	    print "  " x ($1-24), "$1$2 $cpuload";
	    if ($1 < 30){
		say "\x{2705}";            # ok
	    }elsif ($1 < 40){
		say "\x{1F192}";           # cool
	    }elsif ($1 < 50){
		say "\x{1F4F6}";           # up
	    }elsif ($1 < 60){
		say "\x{1F3C1}";           # race 
	    }elsif ($1 < 70){
		say "\x{1F419}";           # octopus
	    }elsif ($1 < 80){
		say "\x{1F4DB}";           # ignition  
	    }else{
		say "\x{1F198}";           # sos
	    }
	    last;
	}
    }
    sleep 60;
}

exit 3;

__END__
  Util**3