my $file = 'Offerfeed_11742413_uk.full.xml.gz';
my $z = IO::Uncompress::Gunzip->new($file) or die "gunzip failed: $IO::Uncompress::Gunzip::GunzipError\n";

my $twig = new XML::Twig;	## Get twig object
$twig->parse($z);	## parse the file to build twig


my $root = $twig->root;		## Get the root element of twig
my @elements = $root->children;	## Get elements list of twig

my $ct = 0;
foreach my $e (sort @elements){
	my $cpc = ($e->first_child('EstimatedCPC')->text)*100;
	print $cpc,"\n";
	$ct++;
}
print $ct,"\n";