Select Code to Download

find(
    sub {
        filestat( "ignored",
...
    },
    $pathname
);

sub filestat {
      if (-d $_) {
         if ($_ ne "." && $_ ne "..") {
...
         }
      }
}

sub iFileCount() { 0; }
sub iDirCount() { 1; }
sub iTotalSize() { 2; }
...
         }
      }
}