Sophie

Sophie

distrib > Mandriva > current > i586 > media > main-updates > by-pkgid > 11c6fa7797f3dffd1861359aaf1ef973 > files > 33

perl-CGI-3.510.0-0.1mdv2010.2.noarch.rpm

#!/usr/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;
}