#!/bin/perl -w

# readable and extendable

while (<>) {
	if (1..10) { print $_;}
	else {last;}
}