#!/usr/bin/perl -w

$|=1;

use CGI qw/:standard/;

{
    my $cgi = CGI->new;
    print $cgi->header('text/html');

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

      print pre("Value is $_.</pre>");

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