#!/usr/bin/env perl

my $max = 15;

while (<>) {
	print if $. <= $max;
}

if ($. > $max) {
	print "\e[38;5;12m(".($. - $max)." more, ".($.)." total)\e[m\n";
}
