#!/usr/bin/perl

use warnings;
use strict;

use XML::Twig;

# XMLRPC-Request
my $xml = <<'END';
<?xml version="1.0"?><methodCall><methodName>Test</methodName>
<params><param><value><string>test</string></value></param>
</params></methodCall>
END

my $twig = XML::Twig->new(pretty_print => 'indented');
$twig->parse($xml);

$twig->print;