Select Code to Download

> lwp-request -USexd -m get http://cpan.org/
LWP::UserAgent::new: ()
...
Link: <mailto:cpan@perl.org>; rev="made"
Title: CPAN

    if ($options{'u'} || $options{'U'}) {
        my $url = $response->request->url->as_string;
...
        print $response->request->headers_as_string, "\n" if $options{
+'U'};
    }