#!/usr/bin/perl -w use strict; use CGI qw(:standard -nph); $| = 1; print header; print qq { the Title }; print "Starting ...
\n"; for (my $i=0; $i < 10; $i++) { print "$i
\n"; sleep 1; } print ""; exit;