use WWW::Mechanize;
  use strict;

  my $m = WWW::Mechanize->new();
  $m->get("http://SERVER/PATH");
  for my $link ($m->links) {
    #next unless GOOD_LINK_CONDITION;
    print $link->url."\n";
  }