< Debug Style >

The Debug style is useful for visualizing you XML documents.


use XML::Parser;
use strict;

my $parser = new XML::Parser(Style => 'Debug');
my $file = shift;
$parser->parsefile($file);
print "$file is well-formed.\n";