my ($name, $passwd) = getpwuid($<);