#!/usr/bin/perl

use strict;
use warnings;

for (1..13) {
    <DATA>;
}

while (<DATA>) {
    print;
}


__DATA__
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15