perl -le'print uc(shift)'