#!/bin/ksh
for i in `whoison`
do
finger $i \
| perl5 -w -e 'while (<>){s/[ 	]+/ /g;print;}' \
| fold -s -60 ; echo "" ; echo "=====" ; echo ""
done | less