perl -MTie::File -ne 'BEGIN{tie(@f,"Tie::File",shift,mode=>0,autochomp=>0) or die "tie failed $!"} print@f[$_..$_+2]'