...
my $robot = WWW::Robot->new
      (
       NAME => 'UsageBot',
       VERSION => '1.0',
       EMAIL => 'me@myaddress.com',
       USERAGENT => LWP::UserAgent->new,
       CHECK_MIME_TYPES => 0,
       IGNORE_TEXT => 0
       );
    
    $robot->addHook
      ("follow-url-test" => sub {
         my ($robot, $hook, $url) = @_;
         return 0 unless $url->scheme eq 'http';
         OK_TO_FOLLOW($url);
       });