perl -e 'print +(getpwnam(traveler))[2,3];'