$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";

##</code><code>##

What is the base project for this project [mail]:
***mail***
Use of uninitialized value in concatenation (.) or string at ./Projcreate.pl line 145, <STDIN> line 2.
******