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

my $url= "http://www.geo.ed.ac.uk/scotgaz/cgi_bin/mid/cygnus/scotgaz1.5.pl";

my $foo = get ($url) or die "I can't get the feed you want";
my $xml = XML::Simple->new( );
my $parse =$xml->XMLin($foo);

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