#! /usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

$| = 1; # autoflush anschalten

my $cgi = CGI->new();
print $cgi->header();

print $cgi->h1('Seite lädt...');
for(0..1000000){
  print $cgi->hidden(-name="hidden", -value=$_); # immer mal wieder was ausgeben, sonst gibt's nen Timeout
}
print $cgi->h1('Fertig...');