#!perl

use strict;
use warnings;

use LWP::UserAgent qw( );

my $ua = LWP::UserAgent->new();
my $url = 'http://www.google.com/';
my $resp;

$resp = $ua->get($url); print($resp->status_line(), "\n");
show(1);
print("Added:\n");
$ua->add_handler(response_header => sub { print "HANDLER\n"; });
show(2);
$resp = $ua->get($url); print($resp->status_line(), "\n");
show(3);
print("Removed:\n");
$ua->remove_handler('response_header');
show(4);
$resp = $ua->get($url); print($resp->status_line(), "\n");
show(5);

sub show {
  print(join(" ", @_, $ua->handlers('response_header', $resp)), "\n");
}


##</code><code>##

200 OK
1 HASH(0x183657c)
Added:
2 HASH(0x183657c) HASH(0x1b79944)
HANDLER
HANDLER
200 OK
3 HASH(0x183657c) HASH(0x1b79944)
Removed:
4
200 OK
5