#!/usr/local/bin/perl -w


use strict;
use warnings FATAL => 'all';

use Data::Dumper;
use Cpanel::JSON::XS;
use POSIX qw(strftime);


my $all = decode_json <>;


my $ee = $all->{data}->{ee};


foreach my $item (@$ee)
{
	my $ts    = $item->{timestamp};
	my $price = $item->{price};
	
	
	my $price_kwh = $price / 10;
	
	
	$price_kwh = $price_kwh + $price_kwh * 0.22;
	
	
	printf "%s%10s eur / mwh%10s eur cent / kwh with vat\n",
		strftime("%F %T %z", localtime $ts),
		$price,
		$price_kwh;
}