local(@lcfiles, @lcdirs, %files, @fl);
print STDERR "Processing directory '$dir':\n" if $verbose;
local(@lcfiles, @lcdirs, %files, @fl);
print STDERR "Processing directory '$dir':\n" if $verbose;
# Read local files and directories.
foreach $_ (readdir(DH)) {
/^(\.listing|\.\.?)$/ && next;
# Read local files and directories.
foreach $_ (readdir(DH)) {
/^(\.listing|\.\.?)$/ && next;