use XML::DT ;
my $filename = shift;

#print dt($filename, ( e1 => sub{ "<e1 b1='$v{a1}'>$c</e1>" }));
print dt($filename, ( e1 => sub{ $v{b1} = $v{a1}; delete $v{a1}; toxml();}));