use CGI;
use strict;

my $i;
my $j;
my $q = new CGI;

print $q->header(-expires => "Mon, 30 Jan 1970 01:01:01 GMT",
                 -pragma  => "no-cache"),
	$q->start_html(-title => "test");

for($j=0; $j<100; $j++) {
  for($i=0; $i<10; $i++)  {
     print $q->br("Dies ist Zeile $j/$i");
  }
}
print $q->end_html;