#!/bin/perl -w

use strict;
use XML::Twig;

my $posts= 0;
my $rep=0;

my $twig= new XML::Twig( TwigRoots => 
            { NODE => sub { my( $t, $node)= @_;
                            $posts++; 
                            $rep +=$_[1]->att( 'reputation'); 
                            $t->purge;
                          }
            });

$twig->parsefile( $ARGV[0]);
print "$posts posts, $rep rep, ", sprintf( "%5.2f", $rep/$posts),  " average\n";