sub mfind {
my ($dir) = @_;
my ($file);
local (*D, $_);
opendir (D, $dir);
while ($file = readdir D) {
  if ($file eq '' || $file eq '.' || $file eq '..') {next; }
  my $path = $dir.$file;
  my @stat = stat($path);
  if (-d _) {
    $path .= '\\';
    &mfind ($path);
  } else {
    my $size = $stat[7];  # File size
    my $mod = $stat[9];   # File last modified date/time

    # Do stuff here

  }
}
close(D);
return;
} # mfind