Select Code to Download

$ cat XXX
A
...
C
D
E

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

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

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

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