#!/usr/bin/perl
use XML::DT ;
my $filename = shift;

%handler=(
    '-outputenc' => 'ISO-8859-1',
     -type => {foto => "ZERO"},
     'author' => sub{print "$c\n"; toxml() },
);
print dt($filename,%handler); 

=head1 ZERO

If a element has type ZERO, dt will not processe its subelements and
by default returns "" 

The author of all the elements except foto are printed;
In the end the the original document is printed after supressing "foto" 
element.