Нужен хелп по авторизации на PERL

Необходимо сделать сайт на котором можно авторизоватся и заливать файлы , модуль загрузки я написал, а вот с авторизацией и сессиями у меня проблемка. После проверки логина\пароля сессия не обновляется на пользовательскую и остается гостевой. Есть люди которые могут глянуть код и указать на ошибки?