# After you've submitted your query:
my @links = grep { $_->uri =~ m!liste_resultats! } $agent->links;
foreach my $link (@links) {
  print "Retrieving $link\n";
  $agent->follow( $link );
  print $agent->content;
  $agent->back;
};