#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use Socket;

my $time;

print "Content-Type: text/event-stream\n\n";
while(1){
   print "event: server-time\n";
   $time = localtime();
   print "data: $time\n\n";
}
