#!/usr/bin/perl
use strict;
use XML::Parser;

my $xmlfile = shift;
die "Cannot find file \"$xmlfile\""
       unless -f $xmlfile;

my $count = 0;
my $tag = "";

my $encode;
my $parser = new XML::Parser;

$parser->setHandlers( Start => \&startElement,
                           End => \&endElement,
                           Char => \&characterData,
                           Default => \&default);

$parser->parsefile($xmlfile);