This can be handled neatly with File::Find::Rule as well, which is a nicer interface to File::Find:

#!/usr/bin/perl -l

use File::Find::Rule;
print foreach File::Find::Rule
  ->directory
  ->exec(sub { $seen{$_}++ })
  ->in(shift || ".");
[download]

Tony