Yoink lines from a file

yoink

#!/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";
}