#!/usr/bin/perl -w
opendir (DIR, "C:/Perl/bin/Anti") or die "Couldnt open directory: $!";
@files = readdir DIR;
closedir (DIR);

##</code><code>##

foreach $file (@files)
{
  print "$file\n"; #just to make sure this looks right
}

##</code><code>##

@files = grep {"$path/$_" -D }readdir DIR;