[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / 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
86530b38 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	}