Пытаюсь разбраться с perl.
Нужно в perl обработать переменную и передать ее в nginx.
Использую такую конструкцию:
location {
...
set $sid 0;
perl session::gen;
echo $sid;
....
}

perl:
...
sub gen
{
my $r = shift;
$r->variable('sid', 'asdasdasd');
return OK;
}

Можно ли так делать и, если нет, то как можно?
Вообще надо чтобы переменные брались из location и туда же отдавались, поэтому perl_set не подходит.
Спасибо за помощь.