perl -ane 'next unless $F[1]; @l = split /\s+/, `ac -p $F[1]`; printf "%20s: %5d logins %8s total time \n", $l[1], $F[0], $l[2];'