#!/usr/bin/perl
use warnings;
use strict;

use utf8;
use open ':encoding(UTF-8)';
binmode STDOUT, ':encoding(UTF-8)';