#!/usr/bin/perl
use strict;
use XML::DOM;

my $parser = new XML::DOM::Parser;
my $doc = $parser->parse('<tag attr="7">text</tag>');
$doc->printToFile("simpleDOM.xml");
