use File::Find ();
File::Find::find(
  sub {
    if (-d $_) {
      print "DIR: $File::Find::name\n";
    }
    elsif (-f _) { # kein tippfehler, sondern caching
      print "FILE: $File::Find::name\n";
    }
  }, 
  @rootDirs);