clueless

#!/usr/bin/perluse Time::HiRes  qw (usleep);$lo_color="#8686B3";$hi_color="#C4B089";open(FH, "< /proc/stat") or die $!;@lines = <FH>;@cpu0_1 = split(" ", @lines[1]);@cpu1_1 = split(" ", @lines[2]);usleep(800000); seek(FH, 0, 0);@lines = <FH>;close(FH);@cpu0_2 = split(" ", @lines[1]);@cpu1_2 = split(" ", @lines[2]);$cpu0_user = $cpu0_2[1] - $cpu0_1[1];$cpu0_nice = $cpu0_2[2] - $cpu0_1[2];$cpu0_sys = $cpu0_2[3] - $cpu0_1[3];$cpu0_idle = $cpu0_2[4] - $cpu0_1[4];$cpu0_stat = (100.00 * ($cpu0_user + $cpu0_nice + $cpu0_sys)) / ($cpu0_user + $cpu0_nice + $cpu0_sys + $cpu0_idle);$cpu1_user = $cpu1_2[1] - $cpu1_1[1];$cpu1_nice = $cpu1_2[2] - $cpu1_1[2];$cpu1_sys = $cpu1_2[3] - $cpu1_1[3];$cpu1_idle = $cpu1_2[4] - $cpu1_1[4];$cpu1_stat = (100.00 * ($cpu1_user + $cpu1_nice + $cpu1_sys)) / ($cpu1_user + $cpu1_nice + $cpu1_sys + $cpu1_idle);$color0 = $lo_color;$color1 = $lo_color;$color0 = $hi_color if ($cpu0_stat >= 50);$color1 = $hi_color if ($cpu1_stat >= 50);$output = sprintf("Cpu0: <fc=$color0>%.1f%</fc> Cpu1: <fc=$color1>%.1f%</fc>\n", $cpu0_stat, $cpu1_stat);print $output