#!/usr/bin/env perl

use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $ref = XMLin(\*DATA);
print Dumper $ref;

__DATA__
<function name="showImage">
    <data>A random picture</data>
    <argument><![CDATA[<img src="test.jpg">]]></argument>
    <argument>0</argument>
</function>