$ perl -ne 'BEGIN { <> for 1 .. 5 } print' file > newfile