use strict;
use warnings;
use XML::Mini::Document;
warn $XML::Mini::VERSION;
my $newDoc = XML::Mini::Document->new();
my $root = $newDoc->getRoot();
my $header = $root->header('xml'); # set the header
$header->attribute('version', '1.0');
my $kid = $root->createChild('foo');
$kid->text("Yes, I am  a kid.");
$root->createChild('foo')->text('Me Too.');

print $newDoc->toString();


# create a new object
my $xmlDoc = XML::Mini::Document->new();
# init the doc from an XML string
$xmlDoc->parse($newDoc->toString());

use Data::Dumper;
warn Dumper( $xmlDoc->toHash() );
die Dumper( $newDoc->toHash() );
__END__
1.28 at - line 4.
<?xml version="1.0"?>
 <foo>
  Yes, I am  a kid.
 </foo>
 <foo>
  Me Too.
 </foo>

$VAR1 = {
          'xml' => {
                     'version' => '1.0'
                   },
          'foo' => [
                     'Yes, I am  a kid.',
                     'Me Too.'
                   ]
        };
$VAR1 = {
          'xml' => {
                     'version' => '1.0'
                   },
          'foo' => [
                     'Yes, I am  a kid.',
                     'Me Too.'
                   ]
        };