problem perl code: uploading .rtf files
$ppc='pphold/pp' . $cap;
open (DTION, ">","$ppc") or die "$!";
#binmode DTION;
while ($chunk=read ($cap, $data, 1024)) {
print DTION $data;
}
close DTION;
and I get this mess when displaying uploaded rtf file...