#!/usr/local/bin/bash
last | tail -1; last | awk '{print $1}' | grep -v wtmp | sort | uniq -c | perl -e 'while (<>) {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]; }'