Shell Programming and Scripting

echo $(echo test | cut -c1 | tr '[a-z]' '[A-Z]')$(echo test | cut -c2-)

bash-2.03$ echo test |awk '
BEGIN { upper = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
lower = "abcdefghijklmnopqrstuvwxyz"
}
{
FIRSTCHAR = substr($1, 1, 1)
if (CHAR = index(lower, FIRSTCHAR))
$1 = substr(upper, CHAR, 1) substr($1, 2)
print $0
}'
Test

$echo test | perl -pe 's/^(.{0})(.)/$1\U$2/;'
Test
$echo test | perl -pe 's/^(.{1})(.)/$1\U$2/;'
tEst
$echo test | perl -pe 's/^(.{2})(.)/$1\U$2/;'
teSt
$echo test | perl -pe 's/^(.{3})(.)/$1\U$2/;'
tesT

$cat  example
#!/bin/sh
INPUT=test
for COL in 1 2 3 4
do
UPPER=`echo "$INPUT" | cut -c $COL  |tr '[a-z]' '[A-Z]'`
echo "$INPUT" | sed 's/./'$UPPER'/'$COL
done

$./example       
Test
tEst
teSt
tesT
$