#!/usr/bin/perl -l

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