#!C:\Perl\bin\perl.exe use strict; use warnings; no warnings 'uninitialized'; use Algorithm::Cluster; use DBI; use Encode; use CGI qw(:standard :html4); use CGI::Carp qw(carpout fatalsToBrowser); print "Content-Type: text/event-stream\n\n"; print "retry: 30000\n\n"; ... ...