#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use CGI::Validate;
$| = 1;
&htmlOut();
exit;
sub htmlOut(){
print CGI::header();
print 'Hello Test'."\n";
print time;
print "
";
# flush(); #flush or rflush both end program here as it's not a known function call
sleep (1);
print time;
print "
";
sleep (1);
print time;
print "
";
}