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