#!/usr/bin/perl

use strict;

print "Content-type: text/html\n\n";
my @arr = (1..100000);

foreach my $i(@arr){print "$i\n<br />"}