Perl function: uc

use warnings;
use strict;

print uc "rene\n";