perl -ne'print, last if $. == 4' [download]
In reply to Re^2: perl one liner to print a line by ikegami in thread perl one liner to print a line by sugar