$p->insert( table => { border=> 1}, 'tr', 'td') ##

##

  original content of p

##

##

#!/usr/bin/perl -w
use strict;
use XML::Twig;


my $t= XML::Twig->new( twig_handlers => { _all_ => sub { $_->insert( sort values %{$_->atts});
                                                         $_->del_atts;
                                                       },
                                        },
                     )
                ->parse( \*DATA)
                ->print;

__DATA__

This is test. emp this emp  is emp test.