perl -e'($HEAD,$FILE)=@ARGV;open(HEAD);open(FILE);open($f,">$FILE.$$");print $f scalar ,;rename "$FILE.$$","$FILE"' header-file file-to-be-edited