#!/usr/bin/env perl
use XML::XPath;


getScoopWFS();


sub getScoopWFS {
#    my $url = shift;
#    use LWP::Simple;
#    my $content = get($url) or die;
    my $xp= XML::XPath->new(ioref => STDIN);
    $xp->set_namespace('ms', 'http://mapserver.gis.umn.edu/mapserver');

#    my $nodeset = $xp->find('//ms:result'); # find all paragraphs
#    
#    foreach my $node ($nodeset->get_nodelist) {
#        print "FOUND\n\n", 
#            XML::XPath::XMLParser::as_string($node),
#            "\n\n";
#    }


    my $results = $xp->getNodeText('//ms:result'); # find results
#    print "RESULTS=$results\n";

    my ($t0,$arr) = (split (/\|/,$results));
#    print "t0=$t0\nARR=$arr\n";

   

    my %ret = (split /[;,]/, $arr);

#    print "\n\n",(join '#',(split(/;|,/, $arr))),"\n";

    foreach my $key (sort(keys(%ret))){
	print "$key: $ret{$key}\n";
    }


}