Perl: LWP :: UserAgent всегда возвращает код 200 для перенаправленных URL-адресов

У меня есть простой URL-адрес с временным интервалом 302. перейти на другую страницу.

Я пытаюсь выяснить, возвращает ли URL-адрес код 200 (для ОК), чтобы получить его и остановить, если возвращается что-то еще, кроме 200.

Мой код:

my $ua = LWP::UserAgent->new( env_proxy => 1,keep_alive => 1, timeout => 30, agent => "Mozilla/4.76 [en] (Win98; U)");
my $response = $ua->get( $currenturl);
print $response->code;

Приведенный выше код ВСЕГДА возвращает 200, даже если его 302. Я тестировал ответ заголовка с помощью FireBug в Firefox. URL-адрес возвращает «302 перемещено временно» в модуле Net в FireBug. Но приведенный выше код в perl возвращает 200. Почему?