fname=`echo $fname|perl -pe "s#~#$HOME#g"`