contrib/perl5/eg/cgi/nph-multipart.cgi

   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 }