#!/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