my $p;
open(WHOAMI, "/cvsaux/controlScripts/conf/noFBusers.conf") || die "Cannot open noFBusers\n";
while ($p = <WHOAMI> {
chop ($p);

        if ($p eq $whoami) {
                print "\n\n";
                print "OK $whoami is an authorized user\n\n";
                exit 0;
        }
        else { 
        }
}
print "\n\n";
print "ERROR $whoami is NOT an authorized user\n\n";
close (WHOAMI);