Hi

I have a Perl CGI script which launches a second Perl script and prints the output from it. The only problem is, it only prints the output all in one go, when the program has run.

Is there anyway to rearrange this code so the CGI script prints the output as it gets it?

    unless ($pid = open3(\*WRITE, \*READ, \*READ, $prog, $prog_args)) 
+{
       print "<p>Error...";
       return;
    }

    READ->autoflush(1);

    # waitpid $pid, 0; # ?
    unless ($pid) {
       print "<p>Error...";

       close WRITE;
       close READ;

       return;
    }

    close WRITE;

    print "<br>";
    while (<READ>) {
       if (/^Job/) {
          print "<b>$_</b><br>\n";
       } elsif (/\w+/) {
          $_ =~ s/"(.*?)"/<b>$1<\/b>/g;
          print "$_<br>\n"; 
       }  
    }  

    close READ;
[download]

Andrew