perl -i.bak -ple"s/^\xEF\xBB\xBF// if $.==1" script.cgi