perl -wle 'print ucfirst("HALLO");'
HALLO
$ perl -wle 'print ucfirst(lc "HALLO");'
Hallo