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

use XML::Twig;

my $t= XML::Twig->new( twig_roots => { element => sub { my %info;
                                                        $info{last_trade_price} = $_->field( 'LastTradePrice');
                                                        $info{net_change}       = $_->field( 'NetChange'     );
                                                        $info{last_trade_date}  = $_->field( 'LastTradeDate' );
                                                        print join( ' - ', %info), "\n"; # or do something useful
                                                      },
                                     }
                     )->parse( $xml);