#!/usr/local/bin/perl
#Updates clock every 5 seconds. Notice &lt;br&gt; after $date
$|=1;
$BOUNDARY="---------ready-or-not-here-it-comes!";

print <<HEADER;
Status: 200 OK
Server: $ENV{SERVER_SOFTWARE} / Lincolns Script
Content-type: multipart/x-mixed-replace; boundary=$BOUNDARY

HEADER
;
while(1)
{
	$date=`/bin/date`;
	print "--$BOUNDARY\n";
	print "Content-type: text/html\n\n";
	print <<END;
	<HTML><BODY BGCOLOR=white>
	$date<br>
	</BODY></HTML>
END
    ;	
	sleep(5);
}


