It's a silly line in perl, I put it into .sh script:
perl -ne 'print if (rand() < .02)' /home/user/music.list > /home/user/playlist.m3u

Change .02 value for more songs in output.

And music.list was generated via something like 'find /home/user/MyDocs/Music/ -name *.mp3 -print0'