#!/usr/bin/perl
################################################################
# Time Page
# Author: Jeff Zhuk
################################################################

# We need these four lines to make the connection between perl and browser

select(STDOUT); $|=1;
select(STDIN); $|=1;
select(STDOUT);
print "HTTP/1.0 200 OK\n";
print "Content-type: text/html\n\n"; ####### browser needs this line !!!!

require "jzlib.pl";  ####### same as include in C/C++

########### print HTML page 4 times with 10seconds interval #######
for($i = 0; $i < 4; $i++) {
	$dateAndTime = &getTime();
	&printHTML($dateAndTime);
	sleep(10); ########### sleep for 10 secondes
}
exit;