Да сколько ж...

Уже и не думал, что в "как бы работающем коде" нарвусь на такое. Сухая выжимка:

my $ua = LWP::UserAgent->new();
# ...
my $rc = $ua->get(...);
# ...
if($rc->code == 301)

Стандартная ошибка вовсе не в "== 30x".

И как же без них!

( Read more... )