Help for this page

Select Code to Download


  1. or download this
    use List::Util 'shuffle';
...
(shuffle(@audiofiles))[0 .. $numOfRandFiles - 1];