Help for this page

Select Code to Download

Select or download this

my @dirs2read = ("/tmp", "/u/files");
foreach my $sp_dir (@dirs2read) {
...
        closedir SP;

}

Select or download this

use File::Find;

...


print Dumper \@readfiles;