PERL Uploadscript

[davincho]

hi,

ich stehe vor folgendem problem:
derzeit will ich einen animierten statusbalken beim dateiupload implementieren. dabei verwende ich eine perlskript, dass mir nach etwa 1024 bytes eine rückmeldung und zwar mit

  
while(($dataRead = read $file,$data,1024) != 0) {  
  print DAT $data;  
  $dataTotal += $dataRead;  
  print $dataTotal . ', ';  
  $| = 1;  
}  

dabei lese ich die zu uploadende datei ein und gebe gleichzeitig die summe der bytes die bis jetzt gelesen wurden aus.
(anfangs wollte ich dies in eine externe datei schreiben, jedoch bin ich von dieser idee wieder abgekommen).
nun gut, diese dataTotal-Ausgabe, will ich dann im späteren verlauf mit js auslesen und die weite des animierten balken damit verändern.
das problem jedoch ist, dass der output nicht geflushed wird, sondern als gesamtpaket nach dem die datei upgeloaded wurde ausgegeben wird, was natürlich nicht erfreulich ist!

ich hoffe ich konnte mein problem verständlich schildern und freue mich auf vorschläge ;)
lg
davincho