[p5sagit/p5-mst-13.2.git] / eg / cgi / 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
424ec8fa	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	}