#!/usr/bin/perl
use strict;

my $line;
my $i=1;

if($#ARGV == 2){
        open (IN, "<$ARGV[0]") or die "Can't open $ARGV[0]";

        while ($line = <IN>) {
                if($ARGV[1] <= $i && $i <= $ARGV[2]){
                        print $line;
                }
                $i++;
        }
        close(IN);

}else{
        print "Usage: $0 infile start_line_number end_line_number\n";
}