#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use charnames ':full'

# STDIN, STDOUT, STDERR and all opened files are utf-8
use open qw( :encoding(utf-8) :std );

...