perl -i.old -ne 'print unless $.==1 or eof' <input-file>