use File::Find::Rule;

my @dirs = find(directory => , in => shift @ARGV);