#!/usr/bin/env perl

use utf8;
use Encode qw/encode_utf8 decode_utf8/;
use 5.12.0;

say encode_utf8(uc("ω"));