find . -name "*mp3" | perl -MList::Util=shuffle -e 'print shuffle <>'  | head -n 4