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