Select Code to Download

  $file =~ s/$dir\///g;
  $dir =~ s/\//\\/g;

find sub {
  return unless -f;
...
    "dir: $File::Find::dir\n",
    "size: $size\n";
}, $rootdir;