use strict;
use warnings;
use HTTP::Cookies;
use WWW::Mechanize;
use LWP::Debug qw(+);

my $mech = WWW::Mechanize->new();
$mech->agent_alias('Windows IE 6');
$mech->cookie_jar(HTTP::Cookies->new(autosave => 1));
$mech->add_header('UID' => 'phil', 'cn' => 'CN', 'id' => '777');

my $response = $mech->get('https://www.example.com');
die "Error at https://www.example.com\n", $response->status_line, "\n
Aborting" unless $response->is_success;

$response = $mech->response;
for my $key ($response->header_field_names()) {
   print "response[$key] = ", $response->header($key), "\n";
}