$ head -10 file
$ perl -ne'1..10 and print' file