HTTP::Response redirect

#!/usr/bin/env perl
use strict;
use LWP::UserAgent;
use Data::Dumper;

my $ua = LWP::UserAgent->new();
my $url = 'http://livedoor.blogcms.jp/';

print '='x35, ' last response ', '='x35, "\n";
my $response = $ua->get($url);
print Dumper [$response->request->uri->as_string, $response->status_line, $response->is_redirect];

print '='x35, ' responses chain ', '='x35, "\n";
my @responses = $response->redirects();
for my $response (@responses) {
    print Dumper [$response->request->uri->as_string, $response->status_line, $response->is_redirect];
}

print '='x35, ' previous response ', '='x35, "\n";
my $previous_response = $responses[-1];
print Dumper [$previous_response->request->uri->as_string, $previous_response->status_line, $previous_response->is_redirect];