#!/usr/bin/perl -w

use HTML::TreeBuilder;
use HTML::FormatText;

$|=1;				# Asynchronous I/O.

use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $ua->agent("Diccionario");
#$ua->proxy([ 'http' ], 'http://www-dms.esd.sgi.com:8080/');

#
# Create a new request.
#
my $req = new HTTP::Request POST => "http://www.anaya.es/dicc/dicc/VOXESPResult.html";
$req->content_type('application/x-www-form-urlencoded');
$req->content("TipoBusqueda=Emp&Entrada=$ARGV[0]&MaxFilas=10");
#
# Pass Request to the user agent and get a response back.
#
my $res = $ua->request($req);

#
# Print outcome of the response.
#
if(! $res->is_success) {
  print "Failure to connect to server: " . $res->message;
} else {
  $html = $res->content;
  
  $p = HTML::TreeBuilder->new;
  $p->parse($html);
  $formatter = HTML::FormatText->new(leftmargin => 0, rightmargin => 60);
  $result = $formatter->format($p);
  
  @parrafos = split /^\s+/m, $result;
  
  for($x=1; !($parrafos[$x] =~ /^\[FORM/) and $x < 10; $x++) {
    print $parrafos[$x]."\n" if !($parrafos[$x] =~ /^----/);
  }
  
}