Nginx + perl md5

[Alexandr Gomoliako]

On 5/4/12, X-Thief <nginx-forum at nginx.us> wrote:
> perl_set $md5_cookie 'sub {
> use Digest::MD5 qw(md5_hex);
> return md5_hex($cookie_test1$cookie_test2);
> }';
>
> Верно ли?

Почти:

perl_set $md5_cookie 'sub {
    use Digest::MD5 qw(md5_hex);
    my $r = shift;
    return md5_hex($r->variable('cookie_test1').$r->variable('cookie_test2'));
}';