Help for this page
$file =~ s/$dir\///g; $dir =~ s/\//\\/g;
find sub { return unless -f; ... "dir: $File::Find::dir\n", "size: $size\n"; }, $rootdir;