XML::Mini3pm

        use XML::Mini::Document;
        
        use Data::Dumper;
        
        
        ###### PARSING XML #######
        
        # create a new object
        my $xmlDoc = XML::Mini::Document->new();
        
        # init the doc from an XML string
        $xmlDoc->parse($XMLString);
        
        # You may use the toHash() method to automatically
        # convert the XML into a hash reference
        my $xmlHash = $xmlDoc->toHash();
        
        print Dumper($xmlHash);
        
        
        # You can also manipulate the elements like directly, like this:        
        
        # Fetch the ROOT element for the document
        # (an instance of XML::Mini::Element)
        my $xmlRoot = $xmlDoc->getRoot();
        
        # play with the element and its children
        # ...
        my $topLevelChildren = $xmlRoot->getAllChildren();
        
        foreach my $childElement (@{$topLevelChildren})
        {
                # ...
        }
        
        
        ###### CREATING XML #######
        
        # Create a new document from scratch
        
        my $newDoc = XML::Mini::Document->new();
        
        # This can be done easily by using a hash:
        my $h = {       
         'spy'  => {
                'id'    => '007',
                'type'  => 'SuperSpy',
                'name'  => 'James Bond',
                'email' => '[email protected]',
                'address'       => 'Wherever he is needed most',
                },
        };
        $newDoc->fromHash($h);
 
        
        
        # Or new XML can also be created by manipulating 
        #elements directly:
        
        my $newDocRoot = $newDoc->getRoot();
        
        # create the <? xml ?> header
        my $xmlHeader = $newDocRoot->header('xml');
        # add the version 
        $xmlHeader->attribute('version', '1.0');
        
        my $person = $newDocRoot->createChild('person');
        
        my $name = $person->createChild('name');
        $name->createChild('first')->text('John');
        $name->createChild('last')->text('Doe');
        
        my $eyes = $person->createChild('eyes');
        $eyes->attribute('color', 'blue');
        $eyes->attribute('number', 2);
        
        # output the document
        print $newDoc->toString();

This example would output :

 <?xml version="1.0"?>
  <person>
   <name>
    <first>
     John
    </first>
    <last>
     Doe
    </last>
  </name>
  <eyes color="blue" number="2" />
  </person>