#!/bin/perl -w
 use strict;
 use XML::Parser;
 my $p= new XML::Parser( Handlers =>
                          { Start => \&default,
                            End   => \&default,
                            Char  => \&default, 
                          },
                         ParseParamEnt => 1
                       );
 $p->parsefile($ARGV[0]);
 exit;

 # by default print the UTF-8 encoded string received from the parser
 sub default
   { my $p= shift;
     my $string= $p->recognized_string();
     print $string;
   }