Select Code to Download

use strict;
use File::Find::Rule;
...
for (find(directory => name => $target, in => $source)) {
   print "$_\n";
}

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