#!perl -w
use strict;

use XML::Simple;
my $xs = XML::Simple->new(
       KeepRoot => 1,
);
my $ref = $xs->XMLin("<say>Hello world!</say>");
my $xml = $xs->XMLout($ref);
print $xml;
exit;