#!/usr/bin/perl


use HTML::REng qw(:all);
use CGI qw(:all);

my @l=tables('http://www.publico.pt');

for(@l){
  $n++;
  if(is_menu($_)){
     print ( h1("Menu $n"),$_);
  }
  else{
     print ( h1("Unidade $n"),$_);
  }
}