perl -ne 'print if $. >= 17 && $. <= 30' infile.txt > output.txt

##</code><code>##

perl -ne 'print if 17 .. 30' infile.txt > output.txt

##</code><code>##

open INFILE,  '<', $inFile  or die "Can't open $inFile : $!";
open OUTFILE, '>', $outFile or die "Can't open $outFile : $!"; 

while ( <INFILE> ) {
    print OUTFILE if 17 .. 30;
    }

close INFILE or die "can't close $inFile : $!"; 
close OUTFILE or die "can't close $outFile : $!";