1	#!/usr/bin/perl
     2	use XML::DT ;
     3	my $filename = shift;
     4	%xml=( '-default' => sub{$element{$q}=1; ""});
       
     5	dt($filename,%xml);
       
     6	print <<'END';
     7	#!/usr/bin/perl
     8	use XML::DT ;
     9	my $filename = shift;
       
    10	%handler=(
    11	#    '-outputenc' => 'ISO-8859-1',
    12	#    '-default'   => sub{"<$q>$c</$q>"},
    13	END
       
    14	for $name (keys %element){
    15	     print "     '$name' => sub{\"\$q:\$c\"},\n";
    16	}
    17	print <<'END';
    18	);
    19	print dt($filename,%handler); 
    20	END