use XML::DOM;
my $dom = XML::DOM::Document->new;