WTF use external commands for something perl implements with native calls?

opendir DIR, "." or die "$!";
foreach my $dir (grep { -d $_ } readdir DIR) {
    # Do something with $dir
    }
closedir DIR;
[download]

Using File::Find might be an option too