#!/usr/bin/perl -l -CDS

use strict;
use warnings;
use diagnostics;

binmode STDOUT, ":utf8";
print ${^UNICODE}, ' ', "\x{100}";