#!/usr/bin/perl -w
use strict;

use XML::Twig;

my $twig= XML::Twig->new( twig_handlers => { Item => sub { print $_->text, "\n"; } });
$twig->parse( \*DATA);

__DATA__
<Orders>
  <Order ID="0008" Date="11/14/1999"><Item>A Book</Item></Order>
</Orders>