Select Code to Download

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

# Source is UTF-8
use utf8;

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