#!/usr/bin/perl -w

$|++;

{
    print "Content-Type:text/html\n\n";

    print "Autoflush is currently ".($|?"on":"off").".\n";
    for ( 1..5 ) {

      print "Value is $_.\n";

      sleep 1;
    }
    print "Autoflush is currently ".($|?"on":"off").".\n";
}