1#!/usr/local/bin/perl
2use CGI qw/:push -nph/;
3$| = 1;
4print multipart_init(-boundary=>'----------------here we go!');
5while (1) {
6    print multipart_start(-type=>'text/plain'),
7    "The current time is ",scalar(localtime),"\n",
8    multipart_end;
9    sleep 1;
10}
11