Написать скрипт на perl

Доброго времени суток.

Суть проекта: Есть скрипт, написанный на Перле (но в нем допущено много ошибок, работает не так как надо)

Этот скрипт исполняется программой Ices0.4 и служит для вывода музыки из директорий.

Есть две папки с музыкой

/music – отсюда выводятся муз композиции

/jingls – отсюда происходит вывод каждый раз после вывода 3-5* муз композиций из папки /music

Дело в том, что рандом не правильно работает и из-за этого возникают частые повторы муз композиций с папки /music. Одна и та же песня может по нескольку раз подряд играть. Касательно /jingls все работает нормально.

Так как я не очень сильно в этом разбираюсь, прошу помощи за вознаграждение. Требуется либо доработать существующий скрипт, либо написать новый.

Жду Ваших предложений.