#! /usr/bin/perl

use HTML::Entities;
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
 
my $domain = shift;

my $res = $ua->post('https://www.nic.es/esnic/esn/verificarValidacionWhoisAction', 
		['nombreImagen' => "ey6zts",
		'insertadoStr' => "ey6zts",
		'randomStr' => "8wB55GelC+T/PlfOcDQxNGDAYeU=",
		'dominio' => $domain ],);

if ($res->is_success) {
	 print filter($res->content); 
} else {
       print "Error\n";
}

sub filter() {
	my $content = shift;
	my $answer;

	my @fields = ("Titular", "Domicilio", "Población", "Fecha de Alta", "Fecha Caducidad", "Agente Registrador");
	foreach $_ (@fields) {
		my $value;
		if ((($value) = $content =~ m{<td>$_</td><td>([^>]+)</td>})) {
			$answer .= "$_: $value\n";
		}

	}
	return decode_entities($answer);
}