#!perl -w use strict; use CGI; use Time::HiRes qw(sleep); my $q = CGI->new(); print $q->header(), <<'END_HTML'; foobar END_HTML for my $cnt ( 1 .. 1000 ) { print 'This is line #', $cnt, '
'; sleep(0.2); }