perl -ne 'my ($h, $w) = split; next unless $w; @l = split /\s+/, `ac -p $w`; printf "%20s: %5d logins %8s total time \n", $l[1], $h, $l[2];'