#!/bin/csh
#

set files = `ls *.xpm`

foreach f ($files)
	echo $f
	mv $f `echo $f | awk '{printf "%s", toupper($1)}'`
end


# end
