perl -e'print +(getpwnam("jonathan"))[6]'