| 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 | } |