Help for this page

Select Code to Download

Select or download this

perl -le'($var = shift) =~ s/(.*)/\u$1/s; print $var' hi

Select or download this
```
perl -le'print uc(shift)'
```