view release on metacpan or  search on metacpan

examples/weather.pl  view on Meta::CPAN

	my ($temperature) = XML::LibXML
		-> load_xml(location => $xml_location)
		-> findnodes('//yweather:condition/@temp')
		-> map(sub { $_->value });	
	
	return "$temperature $unit";
}

local $^F = 1;
my $temperature=what? (i mean outside);
say "The temperature is $temperature";