use strict;
use warnings;

use LWP::UserAgent qw( );

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

print("Added:\n");
$ua->add_handler(response_header => sub { print "HANDLER\n"; });
print($ua->get($url)->status_line(), "\n");

print("Removed:\n");
$ua->remove_handler('response_header');
print($ua->get($url)->status_line(), "\n");

##</code><code>##

Added:
HANDLER
HANDLER
200 OK
Removed:
200 OK