在Perl中读取页面时如何摆脱HTTP302状态码？

use strict;
use warnings;
use LWP::UserAgent;

my $url = 'http://example.com';  # 要读取的页面URL

my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.3');

my $request = HTTP::Request->new(GET => $url);
my $response = $ua->request($request);

while ($response->code == 302) {
    my $redirect_url = $response->header('Location');
    $request = HTTP::Request->new(GET => $redirect_url);
    $response = $ua->request($request);
}

if ($response->is_success) {
    my $content = $response->content;
    # 处理获取到的页面内容
} else {
    die "请求失败: " . $response->status_line;
}