#!/usr/bin/perl
use strict;
use warnings;
use 5.10.0;

my $count;
while (<DATA>) {
    $count++
}
say $count;