getpwuid

#
# the function getpwuid translates the user id "$<" to 
# the corresponding passwd file entry. 
#
($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = 
	getpwuid( $<);