My Perl extract program (like head and tail)

A while back I needed to print some lines from the middle of a large text file. I used to use a combination of head and tail to get the results I wanted, but as large as this file was, I needed something much better. Since I couldn't find a tool to do this for me, I wrote one in Perl. Here's the source code and a brief explanation of my program.