use strict; my $counter=0; print"TOP\n"; while( $counter++<10) { last if eof(STDIN); $_=<>; print "$counter $_"; } print "BOTTOM";