perl -e 'print scalar getpwuid($<) '
lanx