perl -le'$x{(split)[0]}++for(`who`);print"$k => $v"while($k,$v)=each%x'