use 5.010;
use strict;
use Web::Magic 0.007;

my %opts = (
  'w'  => 26191, # Yahoo WOEID
  'u'  => 'c',   # Unit: 'c' or 'f'
  );

my ($temperature) = Web::Magic
  -> new(q<http://weather.yahooapis.com/forecastrss>, %opts)
  -> findnodes('//yweather:condition/@temp')
  -> map(sub { $_->value });

say "Temperature is $temperature";