#!/usr/bin/perl 
use strict;
use warnings;
use Term::ProgressBar 2.00;
use LWP::UserAgent; 
use LWP::Simple; 
sub nombre;

my $cedula = shift;
chomp $cedula; 

my $ua = LWP::UserAgent->new( agent => "Mozilla/5.0 (X11; U; Linux i686; es-AR; rv:1.9.0.11) Gecko/2009061212 Firefox/3.0.11 (Canaima GNU/Linux)" );
$ua->default_headers;

my $url = "http://www.cne.gob.ve/ce.php";
my $c = $cedula;
$c =~ s/\.//g;
my %parametros = ( cedula => $c, nacionalidad => "V");
my $r = $ua->post($url,\%parametros);

if ($r->is_success) {
	my @content = split '\n',$r->content; 
	my $nombre = nombre @content;
	print "Nombre: $nombre \n";
	}

sub nombre {
	my (@c) = @_;
	my @nombre = grep {/Nombre/} @c;
	my @b = split /<strong>/, $nombre[0];	
	my $nombre = $b[2]; 
	$nombre =~ s/<\/strong><\/td>//;
	$nombre =~ s/\W$//g;
	return $nombre;
}
