print ucfirst "monday";
# or:
print "\umonday";
[download]

Please have a look at your perl documentation, that's a very simple question ...

-- Frank