## Following extract the first initial character only:
sed 's/\(.\).*/\1/' input_file > $$FirstChar

## Following extract from the second character on:
sed 's/.\(.*\)/\1/' input_file > $$OtherChars

## Following changes the first character to upper case:
tr '[a-z]' '[A-Z]' < $$FirstChar > $$UpperChar

## Following paste together the upper case character and
## the other characters:
paste -d'\0' $$UpperChar $$OtherChars

## Following removes temporary files:
rm -f $$*

# echo "astring"  | python -c "print raw_input().capitalize()"
Astring

ex - infile<<!
%s/^./\u&/|x
!

#!/bin/sh

# @(#) s1       Demonstrate quickie perl for uppercase first character.

FILE=${1-data1}

perl -wp -e '$_ = ucfirst' $FILE

exit 0

% ./s1
Abc
Google
Cnn
Services

awk '{ for ( i=1; i <= NF; i++) 
           {   sub(".", substr(toupper($i),1,1) , $i)  }  
            print }' file