#!/usr/local/bin/perl -w
use warnings;

use XML::Parser;

my $p1 = new XML::Parser(Style => 'Debug');
$p1->parsefile('test.xml');