if (!fork) { # doing stuff in child process...
  # open your file handle here
  while (my $bytesread = read($filesource, my $buffer,1024)) 
  {
    print OUTFILE $buffer;
  } 
  # you could also write to a 'status' file and display that back to t
+he client ;)
  exit; 
}

print $cgi->header();
print "Your upload is in process... see this status.html page for the 
+status (changes every once in awhile :)\n";
exit;
[download]

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
+- $1"}&&`rm $1`;
print$\;}
[download]

I tried switching off output buffering by adding

select(STDOUT);
$| = 1;
[download]

at the start of my code, and by putting

print "."
[download]

in the while loop (above) which is writing to the upload file. I though this would print dots during the course of the upload, but it doesn't, why not?

try adding a newline:

print ".\n";
[download]

cLive ;-)

--
seek(JOB,$$LA,0);