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