$ perldoc -f chown
  ($login,$pass,$uid,$gid) = getpwnam($user)
    or die "$user not in passwd file";