use warnings; use strict;                                                                          
use XML::Twig;                                                                              
my $tw = XML::Twig->new("keep_atts_order", 1);
$tw->set_root(my $de = XML::Twig::Elt->new("date"));
$de->set_att("year", 2010, "month", 3, "day", 5); 
$tw->flush; print "\n";
__END__