#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
use LWP::Simple;

my $Document =XMLin("foo.xml");

while (my ($key, $val) = each %{$Document->{Placemark}})
	{
    printf "%s is at %s\n", $key,  $val->{Point}{coordinates};
	}

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
use LWP::Simple;
use XML::Parser;

my $url= "http://xweb.geos.ed.ac.uk/~s0341330/foo.xml";
my $foo = get ($url) or die "I can't get the feed you want";
my $parser = XML::Simple->new( );
my $Document =$parser->XMLin('$foo');

while (my ($key, $val) = each %{$Document->{Placemark}})
	{
    	printf "%s is at %s\n", $key,  $val->{Point}{coordinates};
	}