perl -e '$username=getpwuid("33197");print "username: $username\n"'