or download this
print "Hdl1: ".join(" ",$mech->handlers('response_header', $mech->re
+sponse()))."\n";
$mech->add_handler(response_header => \&response, owner => "vitoco")
+;
...
$mech->remove_handler('response_header', owner => "vitoco");
print "Hdl3: ".join(" ",$mech->handlers('response_header', $mech->re
+sponse()))."\n";
print "Hdl4: ".join(" ",$mech->handlers('response_header', $resp))."
+\n";