perl -e 'print [getpwuid($<)]->[0], "\n"'