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