#!/usr/bin/perl
use LWP::Simple;
use XML::Bare;

$xml = get "http://w1.weather.gov/xml/current_obs/KCGS.xml";
$bare = new XML::Bare( text=>$xml);
$root = $bare->parse();

print $root->{current_observation}->{wind_string}->{value};
print "\n";