$ cat XXX
A
B
C
D
E

##</code><code>##

$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -E'

##</code><code>##

$ perle 'open my $fh, "<", "XXX"; while (<$fh>) { print if 3 .. eof }'
C
D
E

##</code><code>##

$ perle 'open my $fh, "<", "XXX"; while (<$fh>) { print if 1 .. 3 }'
A
B
C

##</code><code>##

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