print "Content-type: multipart/x-mixed-replace;";
  print "boundary=magicalboundarystring\n\n";
  print "--magicalboundarystring\n";

    $com = "./myapp 5000";
    open PIPE, "$com |";

    while ($data = <PIPE>)
    {
        my ($read, $write, $update, $complete) = split(/::/, $data);
        print "Content-type: text/html\n\n";
        print "Percent completed: $complete\n";
        print "Write Time: $write\n";
        print "Read Time: $read\n";
        print '</body>';
        print '</html>';
        print "\n--magicalboundarystring\n";
    }
    close(PIPE);