perl -ne'print, last if $. == 4'