Hallo,
open (SERVER,">flyer/$$flyer") or die "Cant save $$flyer : $!\n";
while (my $bytesread = read ($$flyer, my $buffer, 1024)) {
print SERVER $buffer;
}
close $$flyer;
close SERVER;
Ich denke, daß Du das übliche Problem mit Windows hast. Verwende binmode() nach dem open().
Grüße
Klaus