#!/usr/bin/perl -- 

use strict;
use warnings;


use XML::Simple;
use Data::Dumper;

my $xml = q~<?xml version='1.0'?>
<terminalversioncount>
    <Phones>
      <Count>2</Count>
      <Manufacturer>Sony</Manufacturer>
      <Model>SE1</Model>
      <Version>M94</Version>
    </Phones>
    <Phones>
      <Count>3</Count>
      <Manufacturer>Sony3</Manufacturer>
      <Model>SE13</Model>
      <Version>M943</Version>
    </Phones>
</terminalversioncount>~;

print $xml,$/;
print Dumper( XMLin($xml));
my $VAR1 = {
          'Phones' => [
                      {
                        'Version' => 'M94',
                        'Count' => '2',
                        'Manufacturer' => 'Sony',
                        'Model' => 'SE1'
                      },
                      {
                        'Version' => 'M943',
                        'Count' => '3',
                        'Manufacturer' => 'Sony3',
                        'Model' => 'SE13'
                      }
                    ]
        };

print XMLout($VAR1, NoAttr=>1,RootName=>'terminalversioncount',XMLDecl
+ => 1);
__END__
<?xml version='1.0'?>
<terminalversioncount>
    <Phones>
      <Count>2</Count>
      <Manufacturer>Sony</Manufacturer>
      <Model>SE1</Model>
      <Version>M94</Version>
    </Phones>
    <Phones>
      <Count>3</Count>
      <Manufacturer>Sony3</Manufacturer>
      <Model>SE13</Model>
      <Version>M943</Version>
    </Phones>
</terminalversioncount>
$VAR1 = {
          'Phones' => [
                      {
                        'Version' => 'M94',
                        'Count' => '2',
                        'Manufacturer' => 'Sony',
                        'Model' => 'SE1'
                      },
                      {
                        'Version' => 'M943',
                        'Count' => '3',
                        'Manufacturer' => 'Sony3',
                        'Model' => 'SE13'
                      }
                    ]
        };
<?xml version='1.0' standalone='yes'?>
<terminalversioncount>
  <Phones>
    <Count>2</Count>
    <Manufacturer>Sony</Manufacturer>
    <Model>SE1</Model>
    <Version>M94</Version>
  </Phones>
  <Phones>
    <Count>3</Count>
    <Manufacturer>Sony3</Manufacturer>
    <Model>SE13</Model>
    <Version>M943</Version>
  </Phones>
</terminalversioncount>
[download]