#!/usr/bin/env perl
use
strict;
use
warnings;
use
utf8;
use
Data::Dumper;
use
FindBin;
use
WWW::NHKProgram::API;
my
$client
= WWW::NHKProgram::API->new(
api_key
=>
'__YOUR_API_KEY__'
,
);
my
$program_now
=
$client
->now_on_air({
area
=> 130,
service
=>
'g1'
,
});
warn
Dumper(
$program_now
);