#!/bin/perl -w
 use strict;
 use XML::Parser;
 my $p= new XML::Parser( Handlers =>
                          { Start   => \&default,
                            End     => \&default,
                            Default => \&default
                          },
                       );
 $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;
   }