Помогите добавить условие perl код.
 

Вообщем есть движок сайта на перл который в одной своей части прописывает юзерам куки. Нужно добавить условие чтобы куки прописывались только когда запрашиваются страницы вида http://site.com/affID.html - где ID может меняется.

Место кода где прописываются куки:
if($file->{usr_id})
{
$ses->setCookie("aff",$file->{usr_id},'+14d');
}
Место кода где читаются куки:
my $aff = $ses->getCookie('aff')||0;