#! /perl/bin/perl -w use strict; use CGI; my $q = new CGI; print $q->header(-nph=>1); print ""; for my $i (1..5) { my $data = "
Line $i"; sleep 1; print $data; } print "";