#!/usr/bin/perl
use HTML::TreeBuilder;
use WWW::Mechanize;

my $m = WWW::Mechanize->new;

# récupération des informations
$m->agent_alias("Linux Mozilla");
$m->add_header( Cookie => 'BrowserDetect=passed' );
$m->get('http://editorial.tele2internet.fr/?page=ETAT_RESEAU&popup=1');
exit unless $m->success;

# sélection de la sortie
if (@ARGV) {
    open STDOUT, ">", $ARGV[0]
      or warn "Impossible de rediriger STDOUT sur $ARGV[0]: $!\n";
}

# affichage des informations
my $tree = HTML::TreeBuilder->new_from_content( $m->content );
print
  map { s/\n*\x95/\n\n*/g; $_ }
  map { $_->as_trimmed_text . "\n" }
  $tree->look_down( _tag => 'span', class => qr/apptext/ );