opendir could be your friend:

my $folder = "C:/Documents and Settings";
my $dh = undef;
if(opendir($dh, $folder))
{
   while(defined(my $file = readdir($dh)))
   {
      next if $file =~ /^\.\.?$/; # skip /. and /..
      next if -f "$folder/$file"; # skip files

      print "$folder/$file\n";
   }
   closedir($dh);
}
[download]