1N/A#!/usr/local/bin/perl
1N/Ause CGI qw/:push -nph/;
1N/A$| = 1;
1N/Aprint multipart_init(-boundary=>'----------------here we go!');
1N/Awhile (1) {
1N/A print multipart_start(-type=>'text/plain'),
1N/A "The current time is ",scalar(localtime),"\n",
1N/A multipart_end;
1N/A sleep 1;
1N/A}