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