##
#!/usr/bin/env perl
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
my $ref = XMLin(\*DATA);
print Dumper $ref;
__DATA__
A random picture
]]>
0
##
##
$VAR1 = {
'argument' => [
'',
'0'
],
'name' => 'showImage',
'data' => 'A random picture'
};