#!/usr/bin/perl -w
use strict;
use SVG::Parser;
die "Usage: $0 <file>\n" unless @ARGV;
my $xml;
{
    local $/=undef;
    $xml=<>;
}
my $parser=new SVG::Parser(-debug=>1,'--indent'=>'  ');
my $svg=$parser->parse($xml);
print $svg->xmlify();