... # as before...

use Data::Dumper;

my $req = GET 'http://www.perlmeme.org';
print Dumper $req->{_headers};

...

if ($res->is_success) {
    print $res->content;
} else {
    print Dumper $res->{_headers};
}