#!/usr/bin/perl -w

use strict;
use XML::Generator;

my $gen = XML::Generator->new(
    conformance => 'strict',
    escape	=> 'always',
    pretty	=> 2
);

print $gen->xmldecl(['UTF-8', 'no']),
$gen->request(
    $gen->name('value')
);

##</code><code>##

<?xml version="1.0" standalone="yes"?>
<request>
  <name>value</name>
</request>