one-liner: print all lines except the last 3?

Question

I would like to simulate GNU\'s head -n -3, which prints all lines except the last 3, because head on FreeBSD doesn\'t have this feature. So I am t

Answer 1

seq 1 10 | perl -ne 'push @l, $_; print shift @l if @l > 3'