use strict;
use File::Find::Rule;

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

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

##</code><code>##

perl -MFile::Find::Rule -le "print for find(directory => name => shift, in => shift)" mp3 ~