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

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

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->($address);

print "$parse->($address)";