perl -pe "$. > 1 and last;" filename.txt