#!/usr/bin/perl

use CGI::Push qw(:standard);

my $min = 1;
my $max = 10;
while($min <= $max){
   do_push(-next_page=>\&status($min,$max)-delay=>1);
   $min++;
}

sub status{
   my $min = shift;
   my $max = shift;
   return start_html('Status'),
             div({-align=>CENTER},
             h1('Virtual Status'),
             h2($min/$max*100)),
             end_html();
}