The readdir part looks good to me also.
I would add "use warnings", you can do this even on windows by #!/usr/bin/perl -w, or you can add a "use warnings;" statement.
Then I would get to basics to make sure that the permission denied is where you think that it is:
#!/usr/bin/perl -w
opendir (DIR, "C:/Perl/bin/Anti") or die "Couldnt open directory: $!";
@files = readdir DIR;
closedir (DIR);
The problem might be in opening the file for read, not in the directory read itself. See if that works, then
foreach $file (@files)
{
print "$file\n"; #just to make sure this looks right
}
I would point out in the above that a Directory is a File! If there is a subdir underneath this DIR, then you will get those also! So you may need something like this:
@files = grep {"$path/$_" -D }readdir DIR;
update: it might be -D doesn't mean "not a directory" and that you need "not" the little d. Sorry I've forgotten right now.ok, -f is a lot easier!