#! /perl/bin/perl -w use strict; $| = 1; print "Content-type: text/html\n\n"; print ""; for my $i (1..5) { my $data = "
Line $i"; sleep 1; print $data; } print "";