#!/usr/bin/perl -w
use WWW::Mechanize;
use HTML::TreeBuilder;
my $m = WWW::Mechanize->new;
$m->agent_alias("Linux Mozilla");
$m->get('http://www.hydro.eaufrance.fr/Traitement/Qjm.php?StaCode=J2023010&Annee=2006');
my $tree =
  HTML::TreeBuilder->new_from_content( $m->content );
print
   $_->as_trimmed_text,"\n"
   for $tree->look_down( _tag => 'TABLE', border => qr/1/ );