bash$ echo install File::KGlob | sudo perl -MCPAN -e shell
bash$ perl -e 'use File::KGlob qw /kglob/; \
>        @files = kglob("/mp3/*/*"); \
>        while(@files) { $i = int(rand @files); \
>        `mpg123 $files[$i]`; \
>        @files = (@files[0..$i-1], @files[$i+1..$#files]); }';