如何使用Perl读取文件中两行之间的所有行？

#!/usr/bin/perl

use strict;
use warnings;

my $start_line = "start_pattern";
my $end_line = "end_pattern";

my $start_found = 0;

while (<>) {
    if (/$start_line/) {
        $start_found = 1;
    } elsif (/$end_line/) {
        last;
    } elsif ($start_found) {
        print;
    }
}

perl extract_lines.pl input_file.txt