source:
for-distributions/trunk/bin/windows/perl/lib/CGI/eg/nph-multipart.cgi@
14489
Last change on this file since 14489 was 14489, checked in by , 17 years ago | |
---|---|
File size: 263 bytes |
Line | |
---|---|
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 | } |
Note:
See TracBrowser
for help on using the repository browser.