LWP allows you to make a request without LWP following redirects, etc. with the
simple_request method
of
LWP::UserAgent. For example:
my $request = HTTP::Request->new("GET", "http://cnn.com/europe");
my $response = $ua->simple_request($request);
print $response->header("Location"), "\n";
# http://europe.cnn.com
Also the HTTP::Response class has a previous method to get the previous
response in a chain of responses (as occurs when
LWP follows redirects):
my $request = HTTP::Request->new("GET", "http://cnn.com/europe");
my $response = $ua->request($request);
print $response->previous->header("Location"), "\n";
# http://europe.cnn.com