sleep 1;
   seek INFIL, 0, 0;
   <INFIL> =~ /^cpu\s+(\d+)\s+(\d+)\s+(\d+).*/;
   foreach ($1, $2, $3) { $cpuload += $_ - $loads[$i++]; }
   close(INFIL);