in reply to Using File::Find with a bit of elegance
Use an anonymous sub...
my @files; find( sub { push @files, $_ if /\.mp3\z/ } => $root ); [download]
--k.