my $day = "monday";
$day = ucfirst $day;
print "$day\n";
[download]

See ucfirst for details.