$ perle 'open my $fh, "<", "XXX"; while (<$fh>) { print if 2 .. 4 }'
B
C
D