# This is the example module in doc/UsingPerlSAX.pod

package MyHandler;

sub new {

    my ($type) = @_;

    return bless {}, $type;

}

sub start_element {

    my ($self, $element) = @_;

    print "Start element: $element->{Name}\n";

}

sub end_element {

    my ($self, $element) = @_;

    print "End element: $element->{Name}\n";

}

1;