#!/usr/bin/perl
use strict;

my $text;
{
    local undef $/;
    $text = <>;
}

my $parser = Test::Parser::LTP->new();

$parser->parse($text)
    || die $parser->error();

print $parser->to_xml();

