print ((getpwnam "username")[0,2]); #$ENV{USER} for example