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