perl -F: -ane 'printf "%-20.20s\t%-20.20s\n", $F[0], $F[4]' /etc/passwd

##</code><code>##

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