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"; }, owner => "myfunc");
show(2);
$resp = $ua->get($url); print($resp->status_line(), "\n");
show(3);
print("Removed:\n");
$ua->remove_handler('response_header', owner => "myfunc");
show(4);
$resp = $ua->get($url); print($resp->status_line(), "\n");
show(5);

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

__END__
200 OK
1 HASH(0x8c2440)
Added:
2 HASH(0x8c2440) HASH(0x93b0e0)
HANDLER
HANDLER
200 OK
3 HASH(0x8c2440) HASH(0x93b0e0)
Removed:
4 HASH(0x8c2440)
200 OK
5 HASH(0x8c2440)