my $self = shift;
my $text; 
if (shift eq "cc-name") {
 $self->handler(text => sub{$text = shift;},"dtext");
 $self->handler(end  => sub{print $text,"\n\n" if(shift eq 'cc-name')},"tagname");
}
elsif (shift eq "cc_info") {
 $self->handler(text => sub{$text = shift;},"dtext");
 $self->handler(end  => sub{print $text,"\n\n" if(shift eq 'cc_info')},"tagname");
}
else {
 print "Fehler".$self;
}