#!/usr/bin/perl 
 
$|=1; 
 
print "Content-type: text/html\n\n"; 
 
for (1..20) { 
        print "$_<br>\n"; 
        sleep 2; 
}