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