use warnings;
use strict;
use IO::Uncompress::Gunzip ();
use XML::Twig;

my $z = IO::Uncompress::Gunzip->new('in.xml.gz')
    or die "gunzip failed: $IO::Uncompress::Gunzip::GunzipError\n";
my $twig = XML::Twig->new(
	twig_roots => {
		'/CatalogListings/Offer/EstimatedCPC' => sub {
			my ($t, $elt) = @_;
			print $elt->text*100, "\n";
			$t->purge;
		},
	},
);
$twig->parse($z);
$z->close;