#!/usr/bin/perl

use LWP::Simple;                # URL:n haku
use JSON qw( decode_json );     # asennus: sudo cpanm JSON
use Data::Dumper;              	# tätä voi käyttää sisällön tutkimiseen

$perusUrl = "http://api.openweathermap.org/data/2.5/weather";
$kaupunki = "q=Joensuu,fi";
$yksikko = "&units=metric";
$appid = "&appid=681fb05c8a442daf7087d168adc747c4";    # sjuva

$kokoUrl = $perusUrl . "?" . $kaupunki . $yksikko . $appid;

$jsonDoku = get ($kokoUrl) or die "get meni pieleen";

$djson = decode_json( $jsonDoku );

print Dumper $djson;	# sisällön tulostus

print "Lämpö on " . $djson->{main}{temp} . "\n";	# kentän main kenttä temp