in reply to Unix 'head' in perl
perl -pe 'BEGIN{ $lines = 10 } last if $. > $lines' < file [download]
Update: my perlgolf entry is:
perl -pe'$.>10&&last' file [download]