Select Code to Download

          Rate FileFind  FixedOP
FileFind 163/s       --     -70%
FixedOP  546/s     235%       --

use File::Find;
use File::stat;
...
  $filename = $File::Find::name;
  }
}