#!/usr/local/bin/perl

use Esfinge::Web qw(buscaURL HTMLTexto);

@Resultado = buscaURL("http://www.linguateca.pt/www_linguateca_pt.html", GET, "", 0);

if ($Resultado [0] eq -1) {

  print "Acesso falhado\n";

}
else {

  print HTMLTexto($Resultado [1]) . "\n";

}
