use utf8;
use strict;
use warnings;
use warnings FATAL => "utf8";
use feature "unicode_strings"; # or use v5.12 or superior
use open qw(:std :utf8);

print ucfirst("úlcera\n");