Select Code to Download

sub _tagChar
{
...
        $self->xml->characters($data);
        $self->xml->endTag("$tag");
}

 my $characters = sub {
    my $data = $_[0];
...
    $output->print($data);
    $hasData = 1;
  };