#!/usr/bin/env perl

use warnings;

while (<>) {
    next if $. < 17;
    last if $. > 30;

    print;
}