use File::Find;

find(\&wanted, $ARGV[0]);

my %dir = ();

sub wanted {
    if ($dir{$File::Find::dir}++ < 10) {
        print $File::Find::name, "\n";
    }
}