print "Hdl1: ".join(" ",$mech->handlers('response_header', $mech->response()))."\n";
  $mech->add_handler(response_header => \&response, owner => "vitoco");
  print "Hdl2: ".join(" ",$mech->handlers('response_header', $mech->response()))."\n";
  $mech->add_header('If-Modified-Since', time2str($current)) if $current;
  my $resp = $mech->get($url, ':content_file' => "$file.tmp");
  $mech->delete_header('If-Modified-Since') if $current;
  $mech->remove_handler('response_header', owner => "vitoco");
  print "Hdl3: ".join(" ",$mech->handlers('response_header', $mech->response()))."\n";
  print "Hdl4: ".join(" ",$mech->handlers('response_header', $resp))."\n";

##</code><code>##

Hdl1: HASH(0x1f87dbc)
Hdl2: HASH(0x1f87dbc) HASH(0x1f9d174)
Hdl3:
Hdl4: