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