#!/usr/bin/perl
use strict;
use warnings;
use uft8;
use open qw/encoding(utf-8) :std/;
use DDP {deparse => 1}; #debug用途 サブルーチンリファレンスの中身を開示
#use v5.22 #select perl version