#!/usr/bin/env perl
use strict;
use utf8;
use FindBin;
use lib "$FindBin::Bin/../lib";
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);