#!/usr/bin/perl
use strict;
use warnings;

open(my $in,"<","textToCount.dat"); #the poem
while (<$in>) { #read each line in turn into $_
    if (3 .. 6) { #did not specify what to test, and numeric
                # so test the line number 
        print $_;
    }
}
#since the first paragraph is lines 3..6 this is what we print