Help for this page

Select Code to Download

Select or download this

my $path = File::Spec->catdir($dir, $file);
next unless -f $path;