#!/usr/bin/perl
use locale;
print uc("abcõäöüšž"), "\n";

##</code><code>##

# Source is UTF-8
use utf8;

# Appropriate de/encode data going through STDIN/OUT/ERR.
use open ':std', ':locale';