#!/usr/bin/perl -w
use strict;

# pick a parser, in order of preference
use SVG::Parser;
use SVG::Parser qw(
    SAX=Foo::SAXParser
    Expat=Foo::ExpatParser
    SAX=XML::LibXML::SAX::Parser
    SVG::Parser::ExpatParser=Bar::Parser
    SVG::Parser::Expat
    SVG::Parser::SAXParser
);

die "Usage: $0 <file>\n" unless @ARGV;

my $parser=new SVG::Parser(-debug=>1,'--indent'=>'  ');

my $svg=$parser->parsefile($ARGV[0]);

print $svg->xmlify(-indent=>'    ');