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;