cbxk1xg+2008-09-09 18:27:06--

[...]
while (my $bytesread=read($filename,$buffer,1024)) {print FILE $buffer;}
[...]

Habe ich das richtig verstanden, daß man $bytesread nicht für diesen Zweck verwenden kann? :-(
Also a la while ($bytesread += read($filename,$buffer,1024)) {print FILE $buffer;}