Не силён в Perl.
Попробуй сам написать.
Если будут вопросы пиши сюда:
https://forum.antichat.ru/
threadedpost1594515.html#post1594515 .

Это если на PHP будешь писать.

А если на Perl:
https://forum.antichat.ru/thread40897.html