#!/usr/bin/perl

<>;
while($line = <>) {
    print if defined;
    $_ = $line;
}