#!/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