perl -pe 'last if $. > 5' filename