open (OUTFILE,">>/tmp/file");
binmode(OUTFILE);
while ($bytesread=read($filename,$buffer,1024)) {
print OUTFILE $buffer;
}