#!/usr/opt/perl5/bin/perl

use XML::Parser;
my $parser = new XML::Parser ();

$parser->setHandlers (
          Start => \&Start_handler,
            End => \&End_handler,
        Default => \&Default_handler
);

my $filename = shift;
die "Can't find '$filename': $!\n" unless -f $filename;

$parser->parsefile ($filename);

### HANDLERS ###
sub Start_handler {
  my $p  = shift;
  my $el = shift;
  print "START: <$el>\n";
  while (my $key = shift) {
    my $val = shift;
    print "  $key = $val\n";
  }
  print "\n";
}
###
sub End_handler {
  my ($p,$el) = @_;
  print "END: </$el>\n";
}
###
sub Default_handler {
  my ($p,$str) = @_;
  # print "  default handler found '$str'\n";
}