Форум АНТИЧАТ - Показать сообщение отдельно

Authorization это не переменная окружения, а заголовок HTTP запроса
Получить его можно через LWP или вынимать регулярками если через сокеты работаешь

Я работаю так:
1. запрашиваю страницу
2. проверяю необходимость аутентификации

Код:

if(exists $res->{_headers}->{'www-authenticate'}) { ... }

3. вынимаю название реалма для аутентификации

Код:

$res->{_headers}->{'www-authenticate'}=~/basic realm=\"(.+?)\"/i || return 0;
my $realm=$1;

3. отправляю запрос с аутенфикацией

Код:

$ua->credentials($target.":80",$realm,login=>'password');
$res=$ua->get($target);