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 : $!";