#/usr/bin/perl -w

use strict ;

my $outFile= "output.txt";
my $inFile= "infile.txt";
my $start=17;
my $end=30;

my $perlcmd="perl -ne 'print if \$. >= $start && \$. <= $end' $inFile >>$outFile";

system($perlcmd);