Eagle WayGotham City ##
##

#!/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 = "Eagle WayGotham City";

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

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