#!/usr/bin/perl
use strict;
use vars qw(@directories);
use warnings;
use File::Find;

foreach my $dir (@ARGV) {
    find(\&wanted, $dir);
}

print "Count of directories: ", scalar(@directories), "\n";
print "Directories:\n";
foreach my $dir (sort @directories) {
    print "\t", $dir, "\n";
}

sub wanted {
    -d && push(@directories, $File::Find::name);
}