#!/bin/perl -w
use strict;

use XML::Parser;
use Data::Denter;
use Text::Iconv;

my $p= new XML::Parser( Style=> 'Objects');
my $doc= $p->parse( \*STDIN);

print Denter( $doc);