#!/usr/bin/perl

use strict;
use warnings;

$|=1; # Ausgabepufferung für STDOUT ausschalten

use CGI::Push qw(:standard);

my $min = 1;
my $max = 10;

# do_push läuft von allein in einer Schleife!
do_push(
    -next_page=>\&status, # die aufzurufende Routine übernimmt keine Parameter
    -delay=>1 
);
 
sub randomtestdata {
        my ($min,$max) = @_;  
        return rand($max-$min); # als Beispiel Zufallsdaten
}

sub status{
   my $data = $min + 1.5 * randomtestdata($min,$max); # hole Daten!
   
   # globale Variablen $min und $max müssen hier als 
   # Abbruchbedingung genommen werden anstatt einer äußeren Schleife
   return undef if $min++ > $max; # Zähle hoch, breche ab, wenn $min zu groß
   
   # sonst gib was aus
   return start_html('Status'),
             div(
                {-align=>'CENTER'},
                h1('Virtual Status'),
                h2($data)
             ),
             end_html();
}