eventsource/html-event-source/event-source-print-2-data.events.cgi

#!/usr/bin/perl

$| = 1;
print "Content-Type: application/x-dom-event-stream\n\n";

for my $i (1..100) {
  print "Event: test-event-1
data: test-data-$i

";
  sleep 1;
}
1	#!/usr/bin/perl
2
3	$\| = 1;
4	print "Content-Type: application/x-dom-event-stream\n\n";
5
6	for my $i (1..100) {
7	print "Event: test-event-1
8	data: test-data-$i
9
10	";
11	sleep 1;
12	}