関西電力だけは、やや書式が異なるようですが、次のように書けば良さそう。 #!/usr/local/bin/perl use strict; use utf8; use Encode; use HTTP::Request::Common; use JSON qw/encode_json/; use LWP::UserAgent; #各電力会社から提供されている電力使用状…