#!/usr/bin/perl

#use strict;
use LWP::Simple;
use XML::EasyOBJ;

#1 knots = 1.15077945 MPH

my $mph_converter = 1.15077945;

my $XMLObservation = &get_xml_observation ("KPAO");

my $Observation = new XML::EasyOBJ(-type => 'string', -param => $XMLObservation) || die "Can't make object";

my $windspeed = $Observation->wind_mph->getString()/$mph_converter;
$windspeed = sprintf ("%.1f", $windspeed); 
my $location = $Observation->location->getString();

print "For $location the current ";
print "Wind Speed is: ";
print $Observation->wind_mph->getString();
print " MPH\n";
print "Knots are $windspeed kts\n";

sub get_xml_observation
{
my $stationID = shift;

my $base_xml_url = "http://weather.gov/data/current_obs/";
my $xml_url;
my $page;

$xml_url = $base_xml_url . $stationID . ".xml";

$page = get ($xml_url);

return ($page);
}