use strict;
use warnings;

my $tempFileName = 'temp.txt';
open tempFile, '>', $tempFileName;
print tempFile <<TEMP;
Line one
Line two
Line three
Line four
Line five
TEMP
close tempFile;

open tempFile, '<', $tempFileName;
while (<tempFile>) {
    print "$_" if $. >= 2 && $. <= 4;
}
close tempFile;

##</code><code>##

Line two
Line three
Line four