use strict; print "Content-type: text/plain\n\n"; my $counter = 0; for (1..5) { $counter++; print $counter; }