perl -e 'print getlogin || getpwuid($<)'
bcrowellx10001000Ben Crowell,,,/home/bcrowell/bin/bash