#!/usr/local/bin/perl
# NPH scripts requires that all scripts begin with the characters nph-
$| = 1;
print <<EOF ;
$ENV{'SERVER_PROTOCOL'} 200 OK
Server: $ENV{'SERVER_SOFTWARE'}
Content-type: multipart/x-mixed-replace; boundary=End
EOF

for ($loop = 0; $loop < 4; $loop++) {
print "--End\n";
print "Content-type: text/plain\n\n";
print "time=".time."\n";
if ($loop==3) {
print "--End--\n";
}
sleep (2);
}

exit (0);

time=1021881038
--End
Content-type: text/plain

time=1021881040
--End
Content-type: text/plain

time=1021881042
--End
Content-type: text/plain

time=1021881044
--End--

#!/usr/local/bin/perl

$| = 1;

print qq|$ENV{'SERVER_PROTOCOL'} 200 OK\n|;
print qq|Server: $ENV{'SERVER_SOFTWARE'}\n|;
print qq|Content-type: multipart/x-mixed-replace; boundary=End\n\n|;

print qq|--End\n|;

for ($loop = 0; $loop < 4; $loop++) {

print qq|Content-type: text/plain\n\n|;
print qq|time=".time."\n|;
sleep (2);
print qq|\n--End\n|;

}

exit (0);

#!/usr/local/bin/perl

$| = 1;

print qq|HTTP/1.1 200\n|;
print qq|Content-type: multipart/x-mixed-replace; boundary=End\n\n|;

print qq|--End\n|;

$i = 0;
while ($i < 4) {
$i++;
print qq|Content-type: text/plain\n\n|;
print qq|time="time"\n|;
print qq|--End\n|;
sleep 2;
}