use strict ;

require 'ldo' ;

use Data::Dumper ;
use XML::Parser::Notifier ;

eval {
    print Dump Data::Dumper [
        XML::Parser::Notifier -> new( ) 
            -> add_client( new LDOdemoDecoder )
            -> parse(\*DATA)
    ] ;
} ;
print $@ if $@ ;

__DATA__
<?xml version="1.0"?>
<!DOCTYPE list SYSTEM "ldo-xml.dtd">
<list>
  <dictionary>
    <atom>month</atom><atom>April</atom>
    <atom>day</atom><atom>5</atom>
    <atom>year</atom><atom>1997</atom>
  </dictionary>
  <atom>a day in the life</atom>
</list>