$conf{project} = &AskQuestion("What is the base project for this project", "c", print "***$conf{project}***\n"; my $uid = (getpwnam($conf{project}))[2]; print "***$uid***\n";