Получить имя домена в perl_set (nginx)

Пару вопросов:

1. Как можно получить имя домена внутри perl обработчика (perl_set...) в nginx?

2. Как можно отлаживать perl обработчики? Например, вывод в файл почему-то не работает:

perl_set $var '

sub {

   my $r = shift;

  open FILE,">>","/tmp/file";

  print FILE $r->uri;

  close FILE;

}';

$r->variable("server_name");