perl -e 'print getlogin || getpwuid($<)'
lanx