#c:/perl/bin/perl -w
use strict;
use XML::Dumper;

my $dumpobj = new XML::Dumper;

my $hashref_send = [
    {
		fname		=> 'Fred',
		lname		=> 'Flintstone',
		residence	=> 'Bedrock'
    },
    {
		fname		=> 'Barney',
		lname		=> 'Rubble',
		residence	=> 'Bedrock'
    }
 ];

# convert to XML string for sending
my $xml_msg = $dumpobj->pl2xml( $hashref_send );

# or Dump to a file for debugging
my $file = "dump.xml";
$dumpobj->pl2xml( $hashref_send, $file );

# Convert received XML back to hash
my $hashref_rec = $dumpobj->xml2pl( $xml_msg );

# Check the result
use Data::Dumper;
print Dumper($hashref_rec);
print $$hashref_rec[0]{'fname'};