sub handle_node { 
    my ( $twig, $element ) = @_;
    unless ( $element -> has_children ) { 
        print "(", $element -> parent -> tag, ") ", 
                   $element -> tag, ": ", $element -> text,"\n";
    }
    $twig -> purge; 
}

my $twig = XML::Twig -> new ( 'twig_handlers' => 
                                { '_all_' => \&handle_node } );
   $twig  ->  parsefile ( 'yourfile');