do {
   die("Premature EOF")
      if not defined <FILE>;
} while $. < 14;
my $line15 = <FILE>;