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