sub parse()
{
  my ($currentObject) = @_;
  my $parser = new XMLParser(Handlers
    =>  {   Init => \&handleDocumentInit,
            Start => \&handleStartTag,
            End => \&handleEndTag,
            Char => \&handleCharacterStrings,
            Default => \&handleDefault,});
  $parser->parse($currentObject->{xmlAsScalar});

}