Cкрипт умной заметки на Perl

Представляю вам скрипт умной заметки написанной на perl.
Скрипт выводит в заметку:
Кол-во друзей
Кол-во заявок в друзья
Кол-во личных сообщений
Кол-во рублей и голосов
И еще пару функций