use strict; 
use warnings; 
use IO::Handle;

my $current_line_num;

while (my $line = <DATA>) {
    $current_line_num = DATA->input_line_number();

    if( $current_line_num >= 2 
        and $current_line_num <= 7)
    {
        print $line;
    }
}