Не сочти за критику, но помоему, не стоит выводить результат в подпрограмме, лучше возвращать результат типа «0» или «хеш», и уже в основной части принимать решение «BCE XyeBO» или «BCE 3AEbiCb», а так спасибо я с перлом плохо знаком, никогда не доводилось рисовать формы, а теперь вот увидел на примере.