Select Code to Download

#!/usr/bin/env perl
use strict;
...
                                 { 'Book' => \&print_book } );
   $twig ->  parsefile ( 'your_xml_file' );

$VAR1 = {
          'Title' => 'The age of rocks',
          'Author' => 'Mary',
          'Released' => '8/16/1944'
        };

sub handle_node { 
    my ( $twig, $element ) = @_;
...
my $twig = XML::Twig -> new ( 'twig_handlers' => 
                                { '_all_' => \&handle_node } );
   $twig  ->  parsefile ( 'yourfile');

(Book) Title: The book of books
(Book) Author: Sally
...
(Book) Title: The age of rocks
(Book) Author: Mary
(Book) Released: 8/16/1944