use File::Find;
sub process_file {
    #do what you want to a file
}
find(\&process_file, /this/is/a/directory/to/parse
[download]

Since you didn't provide any code, I won't either, because I'm assuming that you know how to opendir() & readdir(). If you need more help, please give us an idea of what you've already tried. Take a look here: How (Not) To Ask A Question first/again too please. . .

- - arden.

ps. I left off mention about Find::File because you previously said it was too slow for your desires.

sub recurse
{
  my $d = shift;
  opendir D,$d; # who needs error checking anyways
  while(<D>)
  {
    if( -d $_ ){ recurse($_);
    else{ #regular file
    }
  }
}
[download]

Beware of the side effects of the Perl built-in variables, your solution is not likely going to work as you expected, the $_ will get clobberred in your recursion and you will sit there scratching your head for hours trying to find out what's going wrong. :-)

1. do not forget to close the directory using closedir
2. using recursion and D as the directory handle can be danagerous; better

sub recurse
{
   my $folder = shift;
   my $dir;
   if(opendir($dir, $folder)) # who needs error checking anyways? me!
   {
      while(defined(my $entry = readdir($dir)))
      {
         next if $entry =~ /^\.\.?$/; # avoiding endless loop :)
         if( -d "$folder/$entry" ){ recurse("$folder/$entry"); }
         else
         { #regular file
         }
      }
      closedir($dir);
   }
}
[download]

use strict;
use warnings;

opendir my $dir, "." or die "Can not open directory: $!";
while ($_ = readdir $dir) {
    my $mode = (stat $_)[2] >> 15;
    print "$_ : ", $mode ? "file" : "directory", "\n"
}
closedir $dir;
[download]

use strict;
use warnings;
use File::Find;

find(\&wanted, "L:/Perl");

sub wanted
{
    return if substr($_, 0, 1) eq '.';

    my $path = "$File::Find::dir/$_";
    my $mode = (stat $path)[2] >> 15;

    print "$path is ", $mode ? "file" : "dir", "\n";
}
[download]