in reply to How to write a perl script to grab the first 100 sequences to a 227,000 sequence file?
perl -ne 'print if $. <= 100' inputfile [download]