#!/usr/bin/perl -w

use strict;

use XML::Twig;

my $twig;
my $xml;

$twig=XML::Twig->new(
        pretty_print => 'record_c',
        NoLWP => 1,
        keep_spaces => 1,
        load_DTD => 1,
        expand_external_ents => 1,
        keep_encoding => 1,
);

{
        local $/;
        $xml = <DATA>;
}

$twig->parse("$xml");
$twig->print


__DATA__
<?xml version="1.0"?>
<!DOCTYPE garden SYSTEM "./garden.dtd">
<garden>
        <plant>&flower;</plant>
</garden>