Observer Example

package XML::SAX::Echo;

sub start_element {
    my $self = shift;
    my $elt  = shift;

    print $elt->{Name}, "\n";
}

package main;

my $observer = XML::SAX::Echo->new();
my $parser = XML::SAX::ParserFactory->new();
$parser->parse_file('file.xml');