Select Code to Download

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

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

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