use strict;
use warnings;
use XML::Writer;

my %hash = (
    str1 => 'one<two',
    str2 => 'one&two',
    str3 => 'two>one',
    str4 => 'Caisse D"Eparge',
    str5 => q(Caisse D'Eparge),
);

my $Writer = XML::Writer->new(
    OUTPUT      => 'self',
    DATA_MODE   => 1,
    DATA_INDENT => 2,
);

$Writer->startTag('root');
$Writer->dataElement( $_, $hash{$_} ) for sort keys %hash;
$Writer->endTag('root');
$Writer->end();

print $Writer->to_string;