#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
my $file = 'Summary';
my $t = XML::Twig->new(twig_handlers => 
				{ docsum => \&docsum, 
				  para => sub {$_->set_gi('Item')}
			}
			);
$ty->parsefile($file);
$ty->flush,"\n";

sub docsum{
	my ($ty,$docsum) = @_;
	$docsum->set_gi('docsum');
	my $title = $docsum->first_child('Item');
	my $and = $title-{'att'}->{'Name'};
	$docsum->flush;
}