Covert case of first letter only

Using sed or tr, how do I change "fred" into "Fred" or "fReD" into "Fred"

With just ksh...

#! /usr/bin/ksh
for name ; do
    typeset -L1 -u first=$name
    typeset -R$((${#name}-1)) -l rest=$name
    name=${first}${rest}
    echo $name
done
exit 0