#!/usr/bin/perl -w use strict; use CGI qw/:standard /; $| = 1; print header(); print<progress test ENDHTML foreach my $i (1..10) { print $i, "
\n"; sleep 3; } print ""; exit 0;