my $twig_to_del=XML::Twig->new(
                        twig_handlers=>{
                                        #to_delete elements
                                        '/document/header[2]'=>\&element_delete,
                                        },
                        );
$twig_to_del->parse($temp);
$twig_to_del->purge;


sub element_delete
{
  my ($twig, $element)= @_;
  $element->delete;
}