LWP и редирект

[Bgk]

* Message was cross-posted to fido7.ru.perl, fido7.ru.perl

Добрый день,

Имеется такая задача - хочется вставлять в текст страницы текст
наподобие "Я в онлайне (офлайне)" или свой собственный рисунок вместо
уродских фирменных кнопок ICQ. Раньше это работало очень просто -
LWP-симплом с
http://wwp.icq.com/scripts/online.dl...84619830&img=2 скачивался
гифчик, и по его размеру определялось состояние моей аськи, и, исходя
из последнего, выбирался и текст(картинка).

Но уже сравнительно долгое время назад ICQ.com перевели на новый
движок, а для сохранения преемственности со старых URL'ов сделали
редиректы на новые размещения картинок, и всё перестало работать:

GET /whitepages/online?icq=84619830&img=5 HTTP/1.1 
Host: wwp.icq.com 
User-Agent: Telnet 1.0 

HTTP/1.1 301 Moved Permanently 
Date: Sun, 09 Mar 2002 09:58:37 GMT 
Server: Apache/1.3.12 (Unix) mod_ssl/2.6.6 OpenSSL/0.9.5a 
Location: /lib/image/0,,4371,00.gif 
Cache-Control: max-age=0 
Expires: Sun, 09 Mar 2002 09:58:37 GMT 
Transfer-Encoding: chunked 
Content-Type: text/html

- это для "user is online"

telnet wwp.icq.com 80 

GET /whitepages/online?icq=10343151&img=5 HTTP/1.1 
Host: wwp.icq.com 
User-Agent: Telnet 1.0 

HTTP/1.1 301 Moved Permanently 
Date: Sun, 09 Mar 2002 09:59:32 GMT 
Server: Apache/1.3.12 (Unix) mod_ssl/2.6.6 OpenSSL/0.9.5a 
Location: /lib/image/0,,4349,00.gif 
Cache-Control: max-age=0 
Expires: Sun, 09 Mar 2002 09:59:32 GMT 
Transfer-Encoding: chunked 
Content-Type: text/html

- а это - для "user is offline"

Размер ответа и в первом, и во втором случае одинаковы и различение
нужно проводить по тому, куда указывает Location, а вот как это
сделать, я не знаю. Помогите, плиз! Решением-минимум для меня будет
просто описание способа, как загнать заголовки ответа сервера в
переменную ($response = $res->content; не предлагать :-)

Заранее спасибо!