Hi,

I have tried:

use LWP::UserAgent;

my $url = "https://www.server.com/";

my $ua = LWP::UserAgent->new(env_proxy => 0,
timeout => 200,
keep_alive => 1,
);

my $request = HTTP::Request->new('GET', $url);

my $response = $ua->request($request);

print $response->as_string();

---

The response is the final page, even though there is a redirection until
this page is returned. Is it possible to get and print that redirect HTTP
header?

Thank you.

Teddy

"Octavian Rasnita" <orasnita [at] fcc.ro> writes:

> my $response = $ua->request($request);
> print $response->as_string();

[...]

> The response is the final page, even though there is a redirection until
> this page is returned. Is it possible to get and print that redirect HTTP
> header?

Just use $ua->simple_request() instead of $ua->request() to dispatch
the request.

--Gisle