I would say many of the programs I write are well under the 300 line variety, but I did write a testing system in Perl that was around 5,000 lines.