#!/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();
