#!/usr/bin/perl
use warnings;
use strict;
use XML::Parser::PerlSAX;
use XML::Handler::Subs;

my $parser = XML::Parser::PerlSAX->new(Handler => myHandler->new() );
$parser->parse(Source => {String => '<foo><bar>f*** it</bar></foo>'});

package myHandler;
use base('XML::Handler::Subs');

sub new {
	my $type = shift;
	my $self = {@_};
	return bless($self,$type);
}

sub start_element {
	my ($self,$properties) = @_;
	$self->SUPER::start_element();
	print "started ",$properties->{Name},"\n";
}
	
sub characters {
	my ($self, $properties) = @_;
	my $data = $properties->{Data};
	print "$data\n";
	print "These are the Names; ",@{$self->{Names}},"\n";
}