ngx_http_perl_module + Socket

[fiva]

Работает ли во встроенном перле чтение
данных из сокета? Делаю запрос к
мемкешу чтоб понять на какой урл
перенаправить дальше, таким обзразом:
 perl_set  $feed_redir "sub {
        use Socket ;
        $r = shift;
        $sKey = $r->uri;
        socket(MEMSOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
        $iaddr = inet_aton('127.0.0.1');
        $paddr = sockaddr_in(11211, $iaddr);
        setsockopt(MEMSOCK, SOL_SOCKET, SO_SNDTIMEO, pack('LL', 0, 500)
) or return '';
        setsockopt(MEMSOCK, SOL_SOCKET, SO_RCVTIMEO, pack('LL', 0, 500)
) or return '';
        connect(MEMSOCK, $paddr);
        print MEMSOCK 'get '.$sKey.'\r\n' ;
        while(){
              if(/^value/i){
                 @aKeyVal = split(/ /);
                 read(MEMSOCK,$retVal,$aKeyVal[3],0);
              }
              last if(/^end/i);
           }
           close(MEMSOCK);
           return $retVal;
  }";
так вот судя по тцпдампу коннект идет,
запрос идет, данные приходят, но в $retVal
ничего не читается. 
Может как то по-другому можно получать
из мемкеша урл для перенаправления
(хранить в мемкеше данные для отдачи не
предлагать)?
спасибо.

Posted at Nginx Forum: http://forum.nginx.org/read.php?21,149819,149819#msg-149819