open(my $input, '<', 'inputdatei.txt') or die;
my @array = <$input>;
my $min = 1;
my $max = $#array;
while(<$input>){
   # läuft etwas
   # ...
   # ...
   status($min, $max);
   $min++;
}
do_push(
    -next_page=>\&status, # die aufzurufende Routine übernimmt keine Parameter
    -delay=>1 
);
 
sub data {
	my ($min,$max) = @_;  
	return $min/$max;
}

sub status{
   my $first = shift;
   my $last = shift;
   my $data = 100 * data($first,$last) .'%'; # hole Daten!
   return undef if $first > $max;
   
   	# sonst gib was aus
   	return start_html('Status'),
           div(
                {-align=>'CENTER'},
                h1('Virtual Status'),
                h2($data)
            ),
            end_html();
}