#UNIX head:
#head -10 'filename'

#Perl equivalent:
#perl -pe '$.>10&&exit' 'filename'