in reply to How to find an arbitrary directory

Try the built-in File::Find or the new File::Find::Rule: 
use strict;
use File::Find::Rule;

my ($target,$source) = @ARGV;

for (find(directory => name => $target, in => $source)) {
   print "$_\n";
}

[download]
or as a one-liner: 
perl -MFile::Find::Rule -le "print for find(directory => name => shift
+, in => shift)" mp3 ~

[download]
Oh, and welcome to the Monastery. :)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom