#!/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(); }