#!/usr/bin/perl

<>;
while(<>) {
    last if eof;
    print;
}