perl -e 'printf "%-14.14s\t%-14.14s\n", $a[0], $a[6] while @a = getpwent()'