#!/usr/bin/perl

use LWP::Simple;
use JSON('decode_json');

my $data = get 'http://api.openweathermap.org/data/2.5/weather?q=Helsinki,fi&appid=44db6a862fba0b067b1930da0d769e98&lang=fi';
my $decoded = decode_json($data);
printf "%.1f°C ", ${$decoded}{'main'}{'temp'}-273.15;