perl -ne 'print if $. <= 100' inputfile