$ perl -e '@a = getpwuid($<); print @a;'