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

##</code><code>##

find sub {
  return unless -f;
  my $size = -s;
  print
    "file: $_\n",
    "dir: $File::Find::dir\n",
    "size: $size\n";
}, $rootdir;