foreach my $link (@links) {
    print "LINK: " . $link->url() . "\n" if ($DEBUG>=1);
    push(@anchors,$link->url());
  }
  my $goodAnchors = 0;

  print " @ 1ANCLOOP\n" if ($DEBUG>=1);
  print " @ 2ANCLOOP\n" if ($DEBUG>=1);
  print " @ 3ANCLOOP\n" if ($DEBUG>=1);
  print " @ 4ANCLOOP\n" if ($DEBUG>=1);
  . . .
  print " @ 29ANCLOOP\n" if ($DEBUG>=1);
  print " @ 30ANCLOOP\n" if ($DEBUG>=1);