Help for this page

Select Code to Download

Select or download this

use File::Find::Rule;

my @files = File::Find::Rule->file()
...
    ->in(".");

print join("\n", @files), "\n";