#!/usr/local/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use XML::Parser;
use CGI;
use Data::Dumper;

my $q = CGI->new();
print $q->header();

my $parse = new XML::Parser(Style => 'Objects');

my $address = "<LOC><HNO></HNO><STN>Eagle Way</STN><MCN>Gotham City</MCN></LOC>";

my $tmp = $parse->parse($address);

print $tmp->[0][1];