[OpenSPARC-T2-SAM] / sam-t2 / devtools / v8plus / lib / perl5 / 5.8.8 / CGI / eg / nph-multipart.cgi

#!/usr/local/bin/perl
use CGI qw/:push -nph/;
$| = 1;
print multipart_init(-boundary=>'----------------here we go!');
while (1) {
    print multipart_start(-type=>'text/plain'),
    "The current time is ",scalar(localtime),"\n",
    multipart_end;
    sleep 1;
}
Commit	Line	Data
920dae64 AT	1	#!/usr/local/bin/perl
	2	use CGI qw/:push -nph/;
	3	$\| = 1;
	4	print multipart_init(-boundary=>'----------------here we go!');
	5	while (1) {
	6	print multipart_start(-type=>'text/plain'),
	7	"The current time is ",scalar(localtime),"\n",
	8	multipart_end;
	9	sleep 1;
	10	}