use FileHandle, readdir???

dbs has asked for the wisdom of the Perl Monks concerning the following question:

Hi! Why isn't this working:

my $NuserDir = new FileHandle "+>> /home/$key";
while (my $fobj = readdir $NuserDir) {
    next if $fobj eq '.' or $fobj eq '..' or $fobj eq '.profile';
    print ("chown -R $key:$euser_group $fobj");
}

Can't use an undefined value as a symbol reference at usercfgforfacs.t
+est.plx line 256.
[download]

thx!

Back to Seekers of Perl Wisdom