#!/usr/bin/perl

use strict;
use warnings;

# Decode source from UTF-8.
use utf8;

# Decode STDIN           as per locale.
# Encode STDOUT & STDERR as per locale.
use open qw( :std :locale );

my $test = '...';

print($test);
Dump($test);