LWP::UserAgentでリダイレクト先のURIを取得するには？

use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->timeout(30);

use Data::Dumper;

for (qw[http://example.com/]) {
    $res = $ua->request(HTTP::Request->new(GET => $_));
    next if (!$res->is_success);
    print  $res->base;
}

URIの正規化とかに